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Statement  of  Work 

The  main  objective  of  this  work  is  the  development  of  a  unified  mathematical  technique 
allowing  one  to  handle  optimal  design  problems  directly,  i.e.  without  reference  to  G— closures. 
The  direct  approach  has  originally  been  put  forth  in  [1],  its  detailed  description  given  in  [2]. 
This  approach  has  been  applied  here  to  problems  of  the  second  order  arising  in  the  optimal 
design  of  heat  conducting  bodies  [3,4],  and  to  the  4th  order  problems  arising  in  the  optimal 
design  of  plates  [5].  The  ultimate  aim  of  this  work  is  to  create  an  exact  analytic  procedure  able 
to  provide  special  microstructures  that  eventually  participate  in  the  optimal  layout  for 
non— self— adjoint  problems.  Currently,  these  microstructures  are  worked  out  numerically  [6], 
this  step  forming  an  inner  loop  in  the  major  computational  procedure  aimed  to  determine  the 
desired  optimal  layout.  This  latter  approach  (i)  provides  with  only  suboptimal  sets  of 
composites,  and  (ii)  it  has  not  yet  been  adjusted  to  non-self— adjoint  problems  of  design. 

TI  approach  reported  here  does  not  include  such  an  inner  loop;  it  addresses  the 
computational  work  at  the  very  final  stage,  namely,  at  that  of  assembling  the  overall  layout 
from  the  special  composites  introduced  analytically  at  the  earlier  stages  of  analysis.  This 
analysis  is  rigorous  and  provides  with  genuinely  optimal  composites. 


1  Analytical  Aspects 

1.1  The  Second  Order  Problems 

Direct  Solution  of  an  Optimal  Layout  Problem  for  Isotropic  Heat  Conductors  in  Three 
Dimensions 

Consider  the  system  of  equations: 

q  =  -.gl-VT,  V-q  =  0  (1) 

O 

describing  the  distribution  of  temperature  T  =  T(x,y,z)  within  the  domain  V  in  R  filled  by 
the  heat  conductor  characterized  by  the  heat  conductance  tensor  3=  .g(x,y,z).  This  one  is 
allowed  to  be  equal  either  to  =  u^E  or  to  3_  =  u_E  where  u^  and  u_  are  positive 
constants  (u^  >  u_  >  0),  and  E  is  a  unit  tensor  E  =  ii  +  jj  +  kk: 

3=  .S(x,y,z)  =  +  X2(x,y,z)^_;  (2) 

Here  x^  (^1  +  ^2  =  1)  denote  the  characteristic  functions  of  regions  occupied 

respectively  by  3_j^—  and  materials. 

Assume  that  the  temperature  T  is  prescribed  along  the  boundary  dW  of  the  body: 

T  =  f  (3) 

dV 

and  consider  the  (cost)  functional 

I(T)  =  -  [T(x,y,z)  -  TQ(x,y,z)]^  dxdydz  (4) 

V 


1 


where  Tg(x,y,z)  e  L2(V)  is  a  known  function.  We  desire  to  find  the  characteristic  function 
Xj^(x,y,z)  maximizing  the  functional  (4). 

A  similar  problem  in  two  dimensions  has  been  discussed  in  [1,2], 

To  apply  a  direct  method  [1,2],  we  first  establish  the  equivalence  of 


sup  I  (5) 


subjected  to  constraints  (1)  and  (3),  and 


s  up  inf  J 
Xj.T  A 


where 


J  =  I(T)  +  I  VA  •  VT  dxdydz 
V 

and  the  "conjugate  variable"  A  is  subjected  to 


A 


d\’ 


=  0 


(6) 


(7) 


(8) 


whereas  T  is  subjected  to  (3). 

This  latter  problem  is  handled  with  the  aid  of  two-sided  estimates  that  constitute  the 
core  of  the  direct  approach  [3], 

We  start  with  the  following  upper  bound; 
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(9) 


sup  inf  J  =  sup  sup  inf  J  <  sup  inf  sup  J  = 
XpT  A  T  A  T  A  Xi 


=  sup  inf[I(T)  + 
T  A 


G{VT,VA)dxdydz] 


V 


where  (we  accept  the  notation  (  =  VT,  t)  =  VA) 


Gitv) 


•  7?  if  ^  •  7?  >  0, 
u_^  •  77  if  ^  •  77  <  0. 


(10) 


We  thus  calculated  sup  J  explicitly.  The  upper  bound  (9)  is  not  final.  The  function  G(i^,77) 

is  not  a  saddle:  it  is  in  fact  convex  with  respect  to  each  argument  (but  not  with  respect  to 
their  union).  For  this  reason  we  cannot  guarantee  the  existence  of  solution  of  the  problem 


sup  inf[I(T)  + 
T  A 


[  G(VT,VA)dxdydz] 


V 


(11) 


on  the  basis  of  a  saddle— point  theorem.  But  because  the  arguments  (,t]  of  G(^,77)  are 
gradients,  we  need  not  demand  that  the  integrand  should  be  a  saddle  to  ensure  existence:  it  is 
sufficient  for  this  one  to  be  a  quasisaddle  function  [1,2].  We  introduce  the  polysaddle  envelope 
G  (^,77)  of  G(^,^)  defined  as  [1,2] 


G 


=  sup  sup  inf{a-^  +  b-77  +  w- ^*77 -inf  sup[a-(^  +  b-77  + 
a;  b  a  ^77 


+  a;-^77-G(^,77)]}; 


(12) 


3 


G  (^,7;)  thus  appears  to  be  an  envelope  of  G{(,tj)  built  with  the  aid  of  linear 
functions  as  well  as  null-Lagrangians  =  ^2^3  -  "  ^3^1  “ 

^1^2  ~  ^2^1'  convex  in  tj  and  arbitrary  in  (which  is  the  case  here  (see  [1,2])), 

then 

>  G{(,tj).  (13) 

** 

This  property  makes  it  possible  to  use  G  (^,7;)  instead  of  G{(,t])  in  (11)  and  thus  arrive  at 

the  new  upper  bound  of  the  functional  (6). 

To  compute  (12),  we  first  apply  the  operation  sup.  With  the  notation 

V 


H(^,77)  =  -{iJ  ■  Ti+  G(^,ti) 


we  obtain 


h(^,b)  =  sup[b-7?-H(^,77)] 
V 


0  if  b  +  U(^=0,  u_  <  u  <  u_j^ 

+tD  otherwise. 


(14) 


The  next  step  is  given  by  the  operation 


inf{a  •  ^  -  inffa  •  ^  -  (-h(^,b))]}.  (15) 

a  ( 

which  yields  the  concave  envelope  of  -h(^,b)  with  respect  to  the  ,f-vari able  for  fixed  b. 
This  envelope  is  found  to  be 


inf{a  •  ^  -  inf[a  •  ^  -  (-h(^,b))]}  = 

a  ( 


0,  CeH, 

-OD 


(16) 
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where  E  is  the  convex  hull  of  the  arc  u  6  [u_,u^]  of  the  curve  7  in  the  space 

7;  b  = +  u^  =  S(u)-,f,  u6[u_,u_|_],  (17) 

or,  explicitly  in  terms  of 

^  =  S~\u)  •  b,  u  e  [u_,  u_j_], 

o-l/„^  _  u  p  ,  ww  u-  e 

3  luj  - ^  H — — jj - ^ - 5 

u  +UI  u(u  +0;  )  u  +0; 

where  e  =  — ExE  denotes  the  Levi— Civita  tensor  of  the  third  rank. 

Note  that  the  above  mentioned  arc  rests  on  the  points  =  S~\u^)  •  b  and 
=  S~\u_)  •  b;  this  arc  is  defined  by  (14)  as  the  set  of  points  in  (f-space  for  which 
h{(,h)  < 

We  should  now  describe  the  convex  hull  of  this  set.  An  extensive  analysis  of  related 
computational  aspects  is  given  in  Section  2;  here  we  give  but  a  general  sketch  of  this  geometric 
object.  This  one  turns  out  to  be  the  convex  body  in  R  space  bounded  by  a  surface  dE 
comprised  of  two  sheets.  One  of  these  sheets  is  a  developable  surface  produced  by  straight  lines 
connecting  the  point  with  other  points  of  the  arc  (17);  another  sheet  emerges  from  the 
same  construction,  this  time  associated  with  the  point  .  The  two  sheets  intersect  along  the 
arc  (17)  and  along  the  chord  connecting  the  vertices  and  This  chord  is  given  by 

(  =  tS“\u_^)  .  b  +  (l-t)S”%J  ■  b,  t  6  [0,1].  (18) 
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In  view  of  the  operation  sup  to  be  computed  next  in  accordance  with  the  construction 

b 

(12),  we  must  interpret  (15)  as  the  function  of  argument  b  for  some  fixed  value  of  It  is 
remarkable  that  this  interpretation  is  quite  similar  to  (16),  i.e. 

inf{a-Hnfla-H-M^,b))]}  =  ’  ^  (19) 

a  ^  — oD,  b  ^ 

o 

where  Ji?  is  a  convex  body  in  the  b— space  bounded  by  a  surface  of  the  same  type  as 

the  boundary  dE  of  H.  This  surface  is  also  combined  of  two  developable  sheets,  this  time 
produced  by  straight  lines  connecting  the  vertices  b_|^  =  S(u^)  •  (  and  b_  =  S(u_)  •  ^  with 
points  of  the  curvilinear  arc  (18)  (this  one  becomes  a  curvilinear  arc  in  b— space!)  On  the  other 
hand,  the  curvilinear  arc  (17)  in  (^— space  is  interpreted  in  the  b— space  as  a  chord  connecting 
the  points  b^  and  b_. 

The  operation  sup  participating  in  (12)  is  now  reduced  to 
b 

sup  h  '  rj  .  (20) 

be^ 

Because  the  chord  (17)  and  the  arc  (18)  belong  to  the  boundary  63  of  3,  they  should  be 
tested  for  optimality  in  terms  of  the  operating  (20).  Since  the  body  3  is  convex  and  its 
boundary  63  is  assembled  from  two  developable  sheets,  its  tangent  planes  participating  in  the 
computation  of  supremum  will  touch  63  either  at  its  vertices  b^  and  b_  or  along  the  arc 
(18).  All  these  possibilities  are  embodied  in  the  operation 

sup  b  •  T}  (21) 

be|b^,bj 

where  [b^,b_J  means  the  closed  arc  (18). 
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The  analysis  of  this  operation  together  with  the  subsequent  operation  sup  shows  that 

(j 


the  supremum 


sup  sup  (b-7;  +  w  •  ^  X  77) 

u)  be[b_j_,bJ 


is  defined  by  the  formula 


sup  sup  (h-T]-hUI-^y<Tl)  = 
LJ  b€[b_^,bj 


u_|_  c  0  s2x,  0  <  tanx  < 


+ 


(  u  ^+u_)  cos^X-| u_|_u_s  i  n^x . 


u  cos2x, 


u 


<  tanx  < 


u 


+ 


u 


(22) 


u 


<  tanx  <  OD . 


Here,  2x  denotes  the  angle  between  vectors  ^  and  t).  The  expression  (22)  realizes  the 
upper  bound  G  for  the  function  G(^,7?)  defined  by  (10).  The  first  and  third  lines  in 

(22)  can  be  achieved  as  we  apply  the  pure  and  .^—materials  respectively.  The  second 
line  can  be  achieved  by  a  rank  1  laminate.  To  show  this,  we  introduce  at  each  point  the  plane 
spanned  by  vectors  (,r}.  Then  we  introduce  a  layered  composite  assembled  from  and 
—materials  with  layers  directed  perpendicularly  to  the  i^,7^-plane  and  bisecting  the  angle  2x 
between  ^  and  tj.  For  this  microstructure,  with  its  effective  tensor  and  the 
concentration  t  chosen  in  accordance  with  the  rule 

[tu_  +  (l-t)u_|_]^  =  u_|_u_  tan^x.  (23) 

the  expression  for  (f  •  ^  ■  7/  coincides  with  that  in  the  second  line  of  (22).  Observe  that  the 
requirement  0  <  t  <  1  combined  with  (23)  gives  birth  to  inequalities 
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u_ 

^  <  tanx  < 


u 


involved  in  (22). 

The  attainability  of  the  upper  bound 


sup  inf  J  <  sup  inf  [I(T)  + 
T  A  T  A 


G  (^,7/)dxdydz] 
V 


if  thereby  proved.  In  this  argument,  we  may  consider  special  microstructures  applied  above  as 
admissible  layouts  generating  the  lower  bound  for  the  same  functional  sup  inf  J.  Both  bounds 

A,T  a 

are  shown  to  be  the  same,  and  the  existence  of  optimal  layout  is  thus  demonstrated.  Observe 
that  this  layout  is  locally  two-dimensional  since  at  each  point  (x,y,z)  we  have  two  vectors  ^,t] 
that  define  a  plane;  in  this  plane  we  obtain  the  layout  essentially  the  same  as  that  described  in 
[1.2]. 

This  overall  layout  is  thus  to  be  constructed  from  pure  and  —  materials  and 
also  from  rank  one  laminate  assembled  from  them;  the  rule  (22)  shows  how  this  construction 
should  be  arranged. 


Direct  Solution  of  an  Optimal  Layout  Problem  for  Isotropic  and  Anisotropic  Beat  Conductors 
on  a  Plane 

This  problem  differs  from  the  previous  one  only  in  the  definition  of  a  set  U  of 

admissible  controls  (materials)  Now,  instead  of  two  isotropic  materials  =  u_|_E  and 

=  u_E,  we  assume  that  U  involves  the  isotropic  material  =  uE  and  the  anisotropic 

T  T 

material  ^  =  R^gR  ,  R  =  e^e^  +  ^2^2’  ^  ~  ®2®2’  *^0  ~  ^2®2^2’  ® 
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u  <  <  d2.  This  anisotropic  material  is  allowed  to  take  various  orientations  at  each  point; 

particularly,  the  polycrystals  are  allowed  to  emerge. 

The  overall  analysis  of  this  problem  is  given  in  [4]  (see  attachment)  The  optimal  layout 
is  assembled  from  the  pure  material,  the  (properly  oriented)  .^q— material,  and  the  rank 
one  laminate  assembled  from  them.  A  rule  is  indicated  showing  the  ranges  through  which 
either  of  these  three  materials  should  be  applied. 

These  examples  illustrate  the  direct  technique  of  [1,2]  applied  to  the  second  order 
problem  of  heat  theory. 

The  following  example  is  referred  to  the  fourth  order  problem  arising  in  the  theory  of 

plates. 

1.2  The  Fourth  Order  Problems 

Direct  Approach  in  the  Optimal  Design  of  Plates. 

The  state  of  equilibrium  of  a  thin  plate  is  described  by  the  equation 

VV  VVw  =  q,  V  =  i|^+j|^,  (24) 

(x,y)  e  S 

where  w  denotes  the  normal  displacement,  2  the  tensor  of  stiffness,  and  q  the  transverse 
load  density.  The  boundary  dS  of  the  plate  will  be  assumed  clamped,  this  property  requiring 
the  boundary  conditions 


w 


_  dw 

as  ^ 


(25) 


The  tensor  2=  ^x,y)  will  be  allowed  to  take  at  each  point  (x,y)  one  of  the  two  admissible 
values  2)^,  and  3^  associated  with  two  available  constructive  materials; 
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=  k.a^aj^  +  /^i(^2^2  ^3^3^ >  i  =  1,2. 


(26) 


Here  and  below,  aj,a2,a2  represent  an  orthonormal  basis  in  the  space  of  2nd  rank  symmetric 
2*2— tensors,  i.e. 


ai  -  -^ii  +  jj). 


l(ii-jj). 


a3  =  J(ij  +  ji). 


(27) 


Introducing  the  characteristic  functions  ^^(x.y),  X2(^>y)(Xi+X2  =  1)  domains  occupied  by 
materials  3-^  and  3^  respectively,  we  by  analogy  with  (2)  may  write 


•^x,y)  =  Xi(x,y)^j  +  X2(x,y)^  • 


(28) 


The  function  Xj(x,y)  will  be  sought  to  maximize  some  weakly  continuous  functional  I(w)  of 
solution  to  the  problem  (24),  (25).  As  typical  example,  we  may  take  the  functional 


I(w)  =  - 


[w(x,y)  -  WQ(x,y)]^dxdy,  Wp(x,y)  6  L2(E) 

i 


(29) 


To  apply  the  direct  approach  to  this  problem,  we  go  through  the  same  steps  as  before.  The 
problem 


sup  I 


subjected  to  (24),  (25)  is  equivalent  to 


sup  inf  J  (30) 

XpW  A 
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where 


J  =  I(w)  + 


(VVA  •  •  3)  “  VVw  —  Aq)dxdy 


E 


and  A  is  subjected  to 


(31) 


d\ 

m 


as 


=  0 


(32) 


as 


To  construct  an  upper  estimate  for  (30),  we  proceed  as  in  (9)  and  obtain 


sup  inf  J  =  sup  sup  inf  J  <  sup  inf[I(w)  —  Aq  dxdy  + 
wA  wy.A  wA  •* 

^  S 


+ 


G(VVw,  VVA)dxdy] 


(33) 


where  (we  accept  the  notation  ^  =  VVw,  7/  =  VVA) 


G(e,7/) 


if  3)^- ’  T}  >  3^2' •  T], 

if  ■  3^' •  T]  <  '  3^2’ • 'H- 


(34) 


The  bound  (33)  is  still  to  be  improved  with  the  aid  of  the  polysaddle  transform  similar  to  (12). 


We  go  from  G{^,t})  to  a  new  integrand  G  {(,7])  computed  by  the  formula 
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(35) 


G  {(,r))  =  sup  sup  inf{a-  •^+b-  ‘TZ+w*  -  T-  •?/  - 

w.d  b  a 

—  inf  sup[a-  •^+b-  -rj+u-  •(^'‘T/)4-d^-  -T-  •T)-G{(,Ti)]}. 

(  V 


Apart  from  null— Lagrangians  ~  ^3^2’  ■’  those  involved  in  the  2nd 

order  case,  this  formula  includes  the  null— Lagrangian  -T  -  •  7/  with  the  4th  rank  tensor  T 
defined  as 


T  —  aj^aj  ^2^2  ^3^3  ‘ 

This  null— Lagrangian  is  specific  for  the  4th  order  operator  appearing  in  (24)  namely,  the 
following  identity  holds 


VV  •  •  T  •  •  VVw  =  0. 

The  transform  (35)  possesses  properties  similar  to  those  of  (12);  particularly,  if  0(^,7^) 
is  convex  in  7/  and  arbitrary  in  (  (which  is  the  case  here),  then  (eq.  (12)) 

G  >  G(e,i,) , 

and  G  (^,7/)  can  be  used  to  improve  the  bound  (33). 

We  now  should  compute  G  This  time  we  cannot  characterize  the  boundary  d3B 

that  now  appears  in  a  manner  similar  to  that  in  Section  1.1  simply  in  terms  of  two  developable 
sheets;  the  geometry  of  this  surface  is  more  complicated.  Nevertheless,  the  general  scheme  of 
Section  1.1  works  well,  and  we  are  able  to  carry  out  the  analysis  of  corresponding  necessary 
conditions.  Detailed  calculations  are  exposed  in  [5]  (see  attachment);  the  complete 
classification  of  ranges  has  been  provided  for  the  case  when  tensors  and  rj  are  coaxial.  The 


12 


ultimate  layout  involves  in  this  case  laminates  of  rank  one  and  matrix  laminates  of  rank  two, 
their  layers  being  oriented  along  the  (common)  main  axes  of  tensors  ^  and  rj. 

The  method  works  well  also  in  the  general  situation  when  tensors  (  and  t]  are 
arbitrary.  The  corresponding  calculations  have  been  initiated,  and  they  show  that  laminates  of 
rank  one  appear  as  microstructures  that  are  optimal  within  certain  ranges  of  ^  and  rj.  For 
other  ranges,  general  (non— matrix)  laminates  of  rank  two  apply;  the  final  classification  of 
ranges  is  still  to  be  completed. 
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2  Computational  Aspects 

2.1  Introduction 

In  solving  the  materials  layout  problem,  we  wish  to  evaluate  the  function 
This  function  is  constructed  from  the  function  G{^,t])  as  follows. 

,  rj)  =  sup  sup  inf  {a  •  ^  +  6  •  77  -t-  D^T  r]  +  lij  ■  ^  x  tj 
D,<j  h  * 

-  inf  sup[a  •  C  +  6  ■  ^  +  +  u  -  (  x  &  -  G(C,  ^')|} 

(  t 

where  the  terms  in  this  function  are  defined  as  follows.  The  arguments  ^  and 
7}  are  symmetric  tensors  of  size  two.  If,  however,  we  choose  a  basis  for  such 
tensors  we  can  think  of  ^  and  rj  as  being  three-tuples  (elements  of  so  that 
operations  such  as  ^  x  7/  make  sense.^  In  particular,  we  choose  the  basis 

ai  =  -t-  jj)  a2  =  -  jj)  03  =  -^{ij  +  jO 

We  express  ^  and  77  in  this  basis  as  ^  Oi  and  77^  =  77  ••  a<  for  i  =  1,2,3.* 
The  dummy  variables  a,  6,  w,  C  ^  are  also  thought  of  as  being  in  3?*.* 
D  is  a  scalar.  T  is  defined  to  be  the  matrix  representation  of  the  operation 
T  =  ajax  —  ajQj  —  a3a3  in  the  basis  {01,03,03}.  In  other  words. 


In  order  to  define  G{^,rj)  recall  that  A:_,  k+,  and  fi+  are  all  scalar  quan¬ 
tities.  Define 


A’+.  =  fc+^i7i  +  /*+(^272  +  ^373)  and 


at 

<*3 

03 

^That  is,  ^  X  77  = 

^3  where  the  set  {01,02,03}  is  the  basis  of  the  space 

m 

7a 

73 

of  tensors. 


’In  other  words,  think  of  the  tensor  (  as  being  a  two-by-two  matrix  with  elements 
Then  the  scalar  4,-  =  ^  -ai  =  and  f 

’Note  the  analogous  roles  played  by  (  and  Ci  and  by  r;  and  6.  We  will  subsequently  be 
considering  the  space  92’  =  Jt’  x  St’  with  (  and  C  belonging  to  the  same  3t’  subspace  and 
7f  and  9  belonging  to  the  same  9t’  subspace.  Later,  b  will  also  be  thought  of  as  belonging 
to  the  same  space  as  tf  and  9. 
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K.  =  -  ^-(6^2  -  6^3) 

Then  finally,  G{^,tj)  =  Ta.dx{K+,  K^}. 

With  G**(4,t;)  now  defined,  we  cousider  how  to  evaluate  it.  We  first  turn 
our  attention  to  the  terms  underlined  below. 

77)  =  sup  sup  inf  {a  •  ^  -f  5  •  7  +  D^T  q  +  uj  ■  ^  x  q 

D.W  6  * 

—  inf  sup[a  •  C  +  6-9  +  D^TS  +  uj  •  ^  x  9  —  G(C,  ^)]} 

(  _£_  - 

We  will  call  this  J(Ci  &);  that  is, 

s(C,  b)  =  sup[6 . 9  +  DCT9  +u-C^9-  G(C,  ^)1 

0 

We  determine  analytically  that 

{0  at  all  ^  such  that 

b  +  DT^  —  [fcoiai  +  /i(aja2  +  tt3®3)]C  +  w  ;<  (  =  0 
00  at  auay  other  ^ 

where  fc  =  Ji:+.  —  5(fc+  —  fc_ )  and  n  =  fi+  —  S{n+  —  )  and  where  the  parameter 

S  is  allowed  to  range  through  the  interval  (0,1).  (  So,  in  other  words,  k  ranges 
through  all  of  the  values  between  and  k+,  and  /x  ranges  through  all  of  the 
values  between  /x_  and  /*+.)  Note  that  the  equation 

b  +  DT(^  —  [fcaiUi  +  fi{^a,20,2  ®3®3)]C  +  ux  x  =  0 

can  be  thought  of  as  the  parametric  representation  of  a  surface  in  32®,  with 
S  acting  as  the  parameter,  and  {Ci>C2>C3»hi,62>h3}  being  the  basis  vectors  of 
3?*.  We  call  this  surface  Af(^,6),  so  that 

■^(C>  b')  ■=  b  DT<^  —  [fcaiUi  +  ®3®3)|C  +  w  x  ^  =  0 

It  will  be  using  it  extensively  in  subsequent  computations. 

The  second  step  in  evaluating  G**(^,77)  is  to  consider  also  the  terms 
double- underlined  below. 

7)  =  sup  sup  inf(a  •  ^  +  b  •  q  -h  D^T q  +  u;  ■  ^  x  q 

D,u  b  == 

—  infsupfg •  C  +  b-9  +  D(,T9  -i- u;  •  C  x  ^  —  G^(Ci ^)1} 
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We  call  this  c{(,b);  that  is, 

£.{(,  ff)  =  inf  {a  •  ^  -  inf  [a  •  C  +  ^(C,  ^»)1 } 

“  C 

Now,  for  each  fixed  5,  we  can  think  of  the  set  of  all  ^  for  which  this  infimum 
is  attained  as  being  the  convex  hull  of  iV/((^,6).  In  other  words,  the  set  of  all 
(  for  which  this  infimum  is  attained  is  the  convex  hull  of  the  set  of  all  C  for 
which  J(^,  6)  is  equal  to  zero,  where  b  is  held  fixed  and  where  ^  and  (  are 
thought  of  as  being  in  the  same  space, 

To  place  this  procedure  in  perspective,  consider  the  surface  M((^,b)  as 
existing  in  S*.  By  fixing  b,  we  take  a  slice  through  M  in  the  ^-direction.  The 
result  is  some  surface  in  three- dimensionad  C-space.  We  then  convexify  this 
surface;  the  result  is  the  set  €  3?^  |£(|i^)  attains  its  infimum}. 

If  we  were  to  consider  the  above  procedure  taking  place  for  all  b,  we  would 
describe  a  six-dimensional  body  B  which  contains  M{C,b)  as  a  subset.  We 
imagine  slicing  through  B  in  the  b-direction  by  fixing  some  particular  value 
of  this  particular  value  being  For  the  sake  of  brevity,  we  will  refer  to 
this  slice  through  B  in  the  ^-direction  as  B^  (since  ^  is  fixed),  and  we  will 
refer  to  a  slice  through  B  in  the  ^-direction  (that  is,  with  b  fixed)  as  Bi,.  Note 
that  with  this  notation,  Bi,  —  ^  |c(^i6)  attains  its  infimum}.  Figures 

1  through  7  provide  a  schematic  representation  of  these  bodies.  Note  that 
in  these  schematics,  we  have  labeled  the  horizontal  axis  with  a  (  rather  than 
with  a  since  they  are  both  in  the  same  3?^  space  we  could  have  labeled 
the  axis  with  either  symbol,  but  we  chose  (  since  that  is  the  particular  value 
along  that  axis  which  we  will  ultimately  be  interested  in.  Note  also  that  b 
and  (  are  drawn  as  if  they  were  scalar  quantities,  when  in  fact  they  represent 
three-tuples. 

As  a  third  step  in  the  evaluation  of  G**(^,7),  we  consider  the  triple- 
underlined  terms  below. 

^**(4)  ’T)  =  sup  supinf{a  •  ^  -I-  b  •  tj  +  D^T tj  u  ■  ^  k  tj 

—  iqfsupfg  •  ^  -t-  b_^  +  D^T9  +  w  •  ^  x  9  —  (7(C,^)] } 

Computing  this  latest  supremum  amounts  to  evaluating  supj,  6  •  t]  where  b  is 
aJlowed  to  range  throughout  B^  for  any  fixed  So  in  other  words,  given 
(  and  7,  we  first  find  the  surface  M{C,b).  Then,  for  each  fixed  b  we  slice 
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through  that  surface  in  the  (^-direction,  and  compute  the  convex  hull  of  the 
resulting  surface.  Doing  this  for  each  b  value  obtains  for  us  the  body  B. 
Now  with  the  (  we  have  been  given  acting  as  a  particular  value  of  C,  we  slice 
through  B  in  the  h-direction  to  obtain  B^.  VVe  then  compute 

sup  b  ■  77 

We  call  this  quantity  This  process  is  demonstrated  schematically 

in  Figures  8  and  9. 

The  fourth  and  final  step  in  evaluating  is  straightforward.  We 

compute 

sup{5z>.w(^,»7)  +  DiTrj  +  w  •  ^  X  77} 

Dittf 

By  far  the  most  difficult  step  is  computing  hi?,w(^,T7).  This,  in  turn,  is  only 
made  difHcult  by  the  cumbersome  definition  of  B(  as  the  ^-slice  of  the  union 
of  all  convex  hulls  of  h-sUces  of  M{C,b).  The  difficulty  arises  not  in  computing 
the  ^-slice  itself,  but  in  computing  all  possible  h-slices  of  A/(C,h).  Clearly, 
we  cannot  expect  to  compute  an  infinitude  of  complex  hulls  numerically!  We 
will  discuss  possible  solutions  to  this  problem  in  Section  4. 

2.2  Representations  of  ^/(C,  6) 

Recall  that 


M{(,b)  =  b  +  DTi  -  [fcaidi  4-  74(0202  +  0303)]^^;  x  ^ 

We  call  this  the  tensor  formulation  of  M{(,b).  We  could  instead  write  this 
as  a  linear  system  of  three  equations  in  three  unknowns.  To  do  this,  we  must 
first  express  u;  in  the  basis  {01,02,073},  so  that  =  w  •  •  Oi  for  i  =  1,2,3. 
For  the  sake  of  brevity,  we  write  A  =  a;i,  B  =  u;2  and  C  =  073.  The  system 
then  becomes 


{D  -  _  S{k^  -  k.)]H,  -  Ci2  +  56  = 

C6  +  {-D  -  [/4+  -  6{fi^  -  m-))}6  -  •‘16  =  -l>2 
—56  +  A6  +  {—D  -  [fi+.  —  S{n+  —  7i_)]}6  =  ~bz 
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We  call  this  the  linear  system  formulation*  of  b).  We  can  now  write  this 
system  in  a  “matrix  x  vector  =  vector”  fashion  as  =  b  where  ^  is  a 

full  matrix  and  V  is  diagonal.®  We  call  this  the  matrix  formulation  of  A/(^,  b). 
This  notation  essentially  divorces  the  computation  from  its  physical  context, 
but  is  a  more  standard  formulation  from  the  point  of  view  of  numerical 
analysis. 

So  as  a  first  step  in  numerically  evaluating  the  function  77)  we  sup¬ 

pose  that  b  is  fixed  and  compute  a  discretized  version  of  the  surface  M{(,b). 
Let  N  be  the  number  of  points  in  the  discretization;  we  will  write  the  dis¬ 
cretized  version  of  the  M{(,b)  function  as  Ms{^,b),  or  more  simply  as  Mf/, 
and  we  will  refer  to  this  as  the  discrete  formulation  of  M{^,b).  M^f  is  com¬ 
puted  by  choosing  N  values  of  the  parameter  5  in  the  interval  [0,1]  and  solving 
the  above  linear  system  for  (  at  each  of  these  N  values  of  5.  We  will  refer  to 
these  discrete  values  of  ^  as  Likewise,  the  N  discrete  values  of  val¬ 
ues  of  4  will  be  denoted  Figures  10-14  provide  a  computer-graphics 

representation  of  Mif  and  its  hull  for  the  following  test  problem.® 

{2  -  [1.5  -  5(1.5  -  0.1)]Ki  -  06  +  06  =  -1 
06  +  {-2  -  [30  -  5(30  -  2)]}6  -  306  =  -85 
06  +  306  +  {-2  -  [30  -  5(30  -  2)]}6  =  -50 

The  points  on  the  discretized  surface  were  computed  in  FORTRAN  and 
stored  in  a  data  file  for  eventual  use  in  computing  the  convex  hull  of  Mjv- 
The  FORTRAN  code  used  is  provided  as  an  appendix.  Note  that  values  were 
assigned  to  the  scalars  b,  A,  B,  C  and  D  arbitrarily  for  the  purposes  of  these 
computations. 

2.3  Computing  the  convex  hull 

At  this  point,  we  have  a  numeric^  approximation  to  a  slice  in  the  5-direction, 
for  some  fixed  5,  through  the  six-dimensional  body  B.  We  now  need  to 

^The  scalar  B  =  wj,  above,  should  not  be  confused  with  the  set  8  from  the  previous 
section. 

is  now  written  as  Ou  emphasize  the  fact  that  the  current  formulation  is  divorced 
from  the  physical  (tensor)  meaning  of  That  is,  (  will  henceforth  always  be  thought  of 
aa  a  three-tuple  rather  than  as  a  symmetric  tensor. 

’niustrations  are  abo  provided  for  the  htdl  test  surface  *  =  (1  -  f)sin(l6t),  y  =  (1  - 
t)cos(16t),  z  =  i  8{t  —  where  t  ranges  between  0  and  1.  See  Figures  15-18. 
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compute  a  numerical  approximation  to  its  convex  hull/  Just  as  the  discrete 
analog  of  the  surface  M{^,b)  is  a  set  of  N  points,  the  discrete  analog  to 
the  surface  of  the  convex  hull  will  be  a  set  of  M  triangular  facets, 

The  cilgorithm  we  used  for  computing  the  discretized  convex  hull  is  called 
the  “Giftwrapping  Algorithm”  and  is  a  standard  algorithm  in  computational 
geometry.  We  describe  it,  and  provide  our  C  language  implementation  of  the 
adgorithm,  in  an  appendix.  Algorithms  which  are  theoretically  more  efficient 
are  known,  but  are  difficult  to  implement.  At  this  stage  of  the  project,  we 
chose  the  sufficiently  efficient  Gift  wrapping  Algorithm  for  its  (relative)  ease 
of  implementation.  Also,  at  this  stage  of  the  project,  it  is  just  as  important 
to  be  able  to  view  a  computer  graphics  representation  of  the  hull  as  it  is  to 
actuadly  compute  the  hull.  For  this  reason,  our  C  program  also  displays  the 
convex  hull  by  making  use  of  the  X  Windows  graphics  and  interface  library, 
xlib.  Figure  13  provide  a  computer-graphics  representation  of  the  convex 
hull.  (Note  that  while  the  program  makes  use  of  shading  to  provide  a  “three 
dimensional  look”  to  the  hull  on  the  computer  screen,  printouts  of  the  screen 
are  necessarily  black-and-white  and  so  lack  the  look  of  depth.) 

Being  able  to  view  the  convex  hull  is  important  for  three  reasons.  First  of 
all,  its  the  only  practical  method  for  determining  that  there  is  no  error  in  the 
convex  hull  computation.  More  importantly,  if  we  consider  the  image  of  the 
convex  hull  in  the  context  of  its  original  physical  derivation,  certain  facets  of 
the  hull  represent  various  classes  of  laminar  composites.  For  example,  points 
on  the  body  which  lie  on  a  line  segment  connecting  two  points  on  the  surface 
represent  rank-one  laminates.  Finally,  observing  the  convex  hull  for  some 
problems  provides  insight  for  methods  of  attacking  the  problem  analytically 
rather  than  numerically.  For  example,  developable  surfaces*  on  the  convex 
hull  might  indicate  linearity  in  the  original  problem  which  could  be  exploited. 

2.4  Computing  supf,^0^  b  •  rj 

2.4.1  Pattern  Search  Approach 

As  we  previously  described  the  procedure  for  evaluating  G**(At),  we  would 
have  to  compute  the  above  convex  hull  for  every  possible  value  of  b  in  order 

^That  is,  we  need  to  approximate  the  set  {4  S  3?®  |  c(^,  b)  attains  its  infimum}. 

“That  is,  surfaces  which  can  be  traced  out  by  the  motion  of  a  line  segment  through 
space.  The  length  of  the  line  segment  is  allowed  to  vary  as  the  segment  moves. 
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then  to  compute  the  body  B.  Clearly,  this  is  impractical!  And  yet,  without 
B,  we  cannot  then  slice  through  B  in  the  6-direction  so  as  to  compute  B^ 
at  the  given  One  way  around  this  dilemma  is  to  realize  that  we  are  not, 
in  fact,  interested  in  computing  either  B  or  Sj  at  all;  we  are  interested  only 
in  computing  supj^g^  6  •  rj.  This  is  an  optimization  problem  with  a  linear 
objective  function  and  a  nonlinear  constraint  set.  In  fact,  the  constraint  set 
is  not  only  nonlinear,  its  also  non-smooth,  and  even  non-convex.  Worst  of  all, 
we  do  not  even  have  an  analytic  description  of  its  boundary.  Rather,  for  any 
given  6  value  we  can  answer  the  question  “is  6  in  Sf?”®  but  we  have  no  other 
information  about  the  constraint  set  for  nearby  values  of  6  or  In  particular, 
we  cannot  even  determine  if  we  are  on  the  boundary  of  the  set  except  by 
sampling  nearby  points  and  repeating  the  convex  hull  computations  at  each 
of  these  points.  Thus,  even  obtauning  approximate  derivative  information 
about  the  boundary  is  impossible.  Therefore,  we  need  to  use  a  no-derivative 
method  of  optimization,  such  as  a  pattern  search  method,  in  order  to  solve  the 
problem.  We  are  currently  at  this  stage  of  computer  program  development 
in  the  project. 

2.4.2  Higher  Dimensional  Approach 

Another  approach  to  alleviating  this  lack  of  an  easily-defined  constraint  set 
would  be  to  consider  the  full  problem  in  its  six  dimensional  setting  rather 
than  approaching  it  as  a  sequence  of  three  dimensional  problems,  as  we  pro¬ 
pose  above.  In  this  approach,  we  would  compute  a  quasi-convex  hull  of 
Af(^,6)  as  in  Figure  6.  While  algorithms  for  computing  convex  hulls  abound 
in  the  Computational  Geometry  literature,  we  know  of  no  algorithms  for 
computing  quasi-convex  hulls.  It  appears,  however,  that  an  easy  genereiliza- 
tion  of  the  Giftwrapping  Algorithm,  which  we  used  to  compute  our  three 
dimensional  convex  hulls,  might  enable  us  to  compute  directly  the  quasi- 
conve.x  hull  of  the  six  dimensional  body.  We  are  currently  developing  such 
an  algorithm,  but  have  not  yet  implemented  it. 

®We  would  answer  this  question  by  fixing  b,  computing  the  convex  hull  of  M{i,  b),  then 
fixing  and  seeing  if  that  (  values  lie  inside  the  convex  hull  we  computed,  ^^ote  that 
numerical  error  can  be  a  very  sensitive  issue  here;  ('s  just  barely  inside  the  boundary  of  the 
convex  hull  might  be  computed  to  be  outside  the  boundary  either  because  of  roundoff  error 
in  the  coordinates,  or  due  to  discretisation  error  caused  by  numerically  approximating  the 
convex  hull. 
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2.5  Appendices  to  Computational  Aspects 

The  following  appendices  are  intended  primarily  for  those  involved  in  using 
or  maintaining  the  hull  software. 

2.5.1  Appendix  A  -  Algorithm  Used  to  Compute  A//v 

For  our  materials  layout  problem,  both  ^  and  h  are  three  dimensional.  So 
the  overall  space  is  six  dimensional.  The  ^-surface  is  not  a  discrete  set  of 
points,  but  rather  a  trajectory  in  three  dimensions.  Its  convex  hull  is  a  body 
in  three  space.  By  varying  6,  we  can  build  up  a  six  dimensional  figure:  the 
B  envelope. 

In  a  ^-space  setting  for  our  full  problem,  the  surface  whose  convex  hull 
needs  to  be  computed  is  given  parametrically  in  the  form 


{D  -  [k^  -  S{k^  -  -  C6  +  =  -6: 

+  {  —  B  —  —  /i_)]}^2  —  ^^2  =  —h 

-B(i  +  +  {—D  —  --  S{n+  -  m-)]}6  =  -63 

_  ^  • 

which  we  write  as  {A  +  SV)^  =  b  where  A  is  a  full  matrix  and  V  is  diagonal. 
Here,  the  entries  of  the  matrices  A  and  T)  are  known  constants.  In  the  overall 
problem,  both  ^  and  b  are  unknown,  but  as  a  sub-problem  we  consider  b  to 
be  Axed.  So  the  adgorithm  for  computing  a  single  convex  hull  proceeds  eis 
follows. 

1.  Fix  an  arbitrary  three-tuple  b. 

2.  Let  be  n  evenly  spaced  values  of  S  in  the  interval  [0, 1]. 

3.  For  each  Si,  solve  the  equation  (A  4-  V6)^  =  b  for  where  A  is  a  full 
matrix  and  V  is  diagonal. 

4.  This  gives  us  a  set  of  vectors  which  form  the  discretized  surface 

in  ^-space. 

5.  From  this,  we  compute  a  set  of  triang'.es  which  is  the  discrete 

analog  of  the  convex  hull.  We  used  the  Giftwrapping  .Algorithm  to 
perform  this  computation. 
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2.5.2  Appendix  B  -  Notes  on  a  Proposed  Pattern  Search 

At  this  point  we  have  a  method  for  building  up  the  set  B.  (The  method  is 
theoretical,  not  practical.)  We  now  turn  our  attention  to  computing  sup  b-rj 
efficiently.  Notice  from  Figure  19  that  for  a  given  ^  and  a  given  tj  we  do  not 
need  to  know  all  of  set  B.  In  Figure  19,  for  instance,  all  we  need  to  know  is 
the  top  boundary  of  B  for  some  fixed  In  order  to  determine  how  this  fact 
might  be  used,  we  consider  Figur";  20.  Here  we  imagine  a  two  dimensional 
6-space  and  we  draw  the  6-image  of  B  for  some  fixed  (That  is,  we  draw  B^. 
In  Figure  20,  is  shaped  like  a  lemon  slice.)  For  this  particular  example,  we 
have  the  unit  direction  vector  rj  cutting  through  B^,  but  this  is  not  necessarily 
the  czue  in  general;  tj  might  not  cut  through  B^. 

First,  it  is  illustrative  to  consider  the  possible  correspondences  between 
features  of  Figure  19  and  features  of  Figure  20. 

•  The  6-axis  in  Figure  20  corresponds  to  the  the  entire  6^, 62-plane  in 
Figure  20.  Note  that  for  this  reason,  a  single  point  in  Figure  20  might 
simultaneously  correspond  to  any  number  of  points  in  Figure  20. 

•  The  line  segment  s?  in  Figure  20  corresponds  to  the  “lemon  slice”  be¬ 
tween  the  points  u  and  v  in  Figure  20.  In  both  cases,  this  set  is  a  6 
image  of  B  corresponding  to  some  fixed  That  is,  it  is  the  the  set  Bxi. 

•  The  point  3  in  Figure  20  corresponds  to  the  point  tv  in  Figure  20.  This 
point  is  the  point  at  which  sup^^g^  6  •  77  is  attained. 

•  The  point  t  in  Figure  20  corresponds  to  the  line  segment  uv  in  Figure  20. 
In  each  case,  this  is  the  set  formed  by  intersecting  the  6-space  with  the 
original  surface  M.  Note  that  in  Figure  20  we  draw  this  as  a  line 
segment,  rather  than  as  an  arbitrary  surface,  because  in  the  sample 
problem  discussed  above,  6  depends  linearly  on  the  parameter  6  for 
fixed 

•  The  point  t  in  Figure  20  corresponds  to  the  point  u  in  Figure  20.  This 
is  the  point  at  which  sup(,g;^l^l^  6  •  77  is  attained.  That  is,  it  maximizes 
6  •  77  over  the  original  surface,  with  <f  fixed,  rather  than  over  the  entire 
set  B(. 

It  is  very  important  to  keep  in  mind  that  we  do  not  actually  know  the  location 
of  the  horizontal  line  which  passes  through  the  point  3  in  Figure  20.  We  could 
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only  find  this  line  by  computing  an  infinite  number  of  convex  hulls.  Even 
approximating  its  location  would  require  an  impractically  large  number  of 
convex  hull  computations,  since  b  is  really  a  three-tuple  and  not  a  scalar.  If 
we  did  know  the  location  of  the  horizontal  line,  and  therefore  the  location  of 
3,  our  problem  would  be  easily  solved. 

We  now  consider  how  these  observations  can  be  used  to  write  a  con¬ 
structive  algorithm  for  determining  the  point  w  (or  s).  Again,  it  is  useful 
to  consider  Figure  20  in  this  discussion.  The  first  algorithm  we  consider  is 
clearly  impracticaJ,  however  it  illustrates  some  ideas  we  can  use  in  a  more 
realistic  algorithm.  Recall  that  ^  and  rj  are  given  as  input,  since  ultimately 
we  are  trying  to  evaluate  Also,  note  that  is  known;  in  this 

case,  it  is  the  surface  given  parametrically  by  [A  +  =  b. 

1.  Optimize  b  •  tj  over  M{^,h)  with  the  ^  given.  That  is  let 

C  =  supfg[o_i]77(>l  4-  SV)^.  In  Figure  20,  this  value  of  C  would  be 
attained  at  the  point  t.  We  now  wish  to  somehow  move  “upwards” 
from  point  t  towards  the  better  solution  at  point  s. 

2.  Randomly  choose  a  value  for  h.  There  are  three  possibilities. 

(a)  This  new  value  of  b  might  not  be  relevant  to  computing  a  new  value 
of  C.  For  example,  consider  the  points  b'  and  b"  in  Figure  20.  In 
the  case  of  the  point  b',  the  corresponding  ^-space  (horizontal  line) 
would  not  intersect  the  surface  M  at  edl,  and  so  has  no  bearing  on 
finding  the  point  s.  In  the  case  of  the  point  b",  the  corresponding 
(  space  does  intersect  M,  but  not  in  the  vicinity  of  the  6-space 
setting  corresponding  to  cur  fixed  Since  these  6  values  are  not 
of  interest  to  us,  we  return  to  step  2  and  randomly  guess  a  new 
value  of  6. 

(b)  This  new  value  of  6  might  be  relevant,  but  might  not  increase  the 
value  of  C.  For  example,  consider  the  point  bt  in  Figure  20.  For 
this  5  value,  b  •  rj  is  not  increased.  So,  we  return  to  step  2  and 
randomly  guess  a  new  value  of  6. 

(c)  The  new  value  of  6  might  increase  the  value  of  C.  For  example, 
choose  a  point  in  Figure  20  which  is  slightly  above  the  point  bi. 
For  this  new  6  value,  6  •  7  is  increased.  Let  C  be  equal  to  this  new 
value  of  the  dot  product,  and  return  to  step  2,  to  look  for  a  stiU 
better  5. 
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Clearly,  this  strategy  of  randomly  guessing  b  values  is  not  practical,  especially 
since  b  is  actually  a  three-tuple  and  not  a  scalar.  The  above  algorithm  does 
show  how  the  merit  of  a  ft  value  can  be  judged.  It  is  left,  then,  to  replace  the 
random  guessing  with  a  better  search  scheme,  such  as  a  pattern  search.  For 
example,  given  a  value  of  b,  we  would  consider  6  points  within  e  of  b,  in  the 
positive  and  negative  directions  of  each  of  the  three  coordinate  axes.  The 
value  of  the  objective  function  would  be  computed  at  any  of  these  six  points 
which  turn  out  to  be  in  the  set  The  point  with  the  lowest  value  is  taken 
as  the  starting  point  in  the  next  step  of  the  iteration. 

2.5.3  Appendix  C  -  Introduction  to  the  the  hull  program 

This  appendix  explains  how  the  3D  convex  hulls  are  rendered  by  the  program 
hull,  how  to  use  the  program,  and  provides  file  listing  for  the  code. 

Running  the  program  Hull  runs  in  a  Unix  and  X  Windows  environment, 
such  as  is  commonly  found  on  computer  workstations.  At  the  shell  prompt, 
type  “hull”  to  invoke  the  program.  Hull  will  read  in  a  number  of  {x,y,z) 
coordinate  triples  from  a  file  called  surface,  data,  so  it  is  assumed  that  this 
file  resides  in  the  same  subdirectory  as  the  hull  program.  The  data  is  stored 
as  floating  point  numbers,  three  per  line,  separated  by  blank  spaces. 

The  main  screen  Most  of  the  screen  should  now  be  taken  up  by  the  image 
of  a  surface,  super-imposed  on  the  coordinate  axes.  (See  Figures  3  and  4.) 
In  the  upper  left  will  be  a  dark  rectangle  labeled  “Quit”.  Clicking  inside 
this  rectangle  with  any  mouse  button  will  exit  from  the  program.  Techni¬ 
cally,  these  dark  rectangles  are  not  “widgets”  in  the  sense  of  X- Windows 
terminology,  so  we  will  refer  to  them  as  gadgets. 

To  the  right  of  the  “Quit”  gadget  is  the  “Save  hull”  gadget.  Clicking  in 
this  gadget  will  save  the  hull  data  into  the  file  hull. data.  Each  line  of  the  file 
contains  nine  numbers  representing  one  triangle:  the  first  three  numbers  are 
the  (i,  y,  z)  coordinates  of  the  first  vertex,  the  second  set  of  three  numbers  is 
the  coordinates  of  the  second  vertex,  and  so  on.  The  numbers  are  separated 
by  blank  spaces. 

On  a  color  monitor,  there  will  be  a  color  bar  to  the  right  of  the  “Save 
huU”  button.  The  color  bar  displays  66  colors  and  66  shades  of  grey.  The 
colors  used  are  the  66  standard  “named”  colors  in  X- Windows.  The  shades 


of  grey  are  the  ones  used  to  paint  the  convex  hull.  On  a  black-and-white 
monitor,  the  color  bars  will  not  be  drawn. 

The  overhead-view  gadgets  To  the  right,  and  slightly  below  the  color 
bar,  will  be  a  large  rectangle  surrounded  by  gadgets.  The  large  rectangle  is 
an  overhead  map  of  the  display  area.  In  the  center  of  the  map  is  the  origin. 
Emanating  downward  from  the  origin  is  the  x-axis.  The  y-a.xis  extends  to 
the  right.  The  small  square  which  surrounds  the  origin  represents  the  extent 
of  the  X  and  y  axes  as  they  are  displayed  on  the  screen.  The  letter  “e” 
represents  the  location  of  the  observer’s  eye.  The  letter  “s”  represents  the 
target  of  the  observers  eye  (the  “see  point”).  The  letter  “1”  represents  the 
location  of  the  lamp,  or  light  source. 

Between  the  eye  point  and  the  see  point  is  an  imaginary  plane  called  the 
“view  plane".  This  is  the  rectangle  onto  which  the  3D  image  is  projected,  for 
purposes  of  viewing.  The  letter  “v”  in  the  overhead  map  is  always  between 
the  “e”  and  the  “s”  —  it  represents  the  location  of  the  view  plane. 

To  the  right  of  the  overhead  map  is  an  “altimeter”  which  shows  the  z- 
coordinate  of  the  eye  point,  the  see  point,  and  the  light  source.  The  dot  in  the 
middle  of  the  altimeter  represents  the  height  of  the  origin.  The  vertical  bar 
just  inside  the  altimeter  represents  the  extent  of  the  z-axis  as  it  is  displayed 
on  the  main  screen. 

The  gadgets  marked  “Expand”  and  “Ex”  double  the  size  of  the  map  area, 
so  everything  inside  the  map  becomes  smaller.  The  gadgets  marked  “Shrink” 
and  “Sh”  cut  the  size  of  the  map  area  in  half. 

Clicking  on  the  “Clockwise”  gadget  with  the  first  (left-most)  mouse  but¬ 
ton  will  rotate  the  eye  point  five  degrees,  with  the  see  point  being  the  center 
of  rotation.  The  rotation  will  occur  in  the  sense  of  latitude  lines.  Notice 
that  the  image  in  the  main  screen  changes,  as  does  the  location  of  the  eye 
point  as  displayed  in  the  overhead  map.  Clicking  on  the  same  gadget  with 
the  second  (middle)  mouse  button  will  rotate  the  see  point  five  degrees  about 
the  origin.  Clicking  with  the  third  (right-most)  mouse  button  will  rotate  the 
light  source  about  the  see  point. 

The  “Counter  C”  gadget  performs  counter-clockwise  rotations  in  the  same 
fashion.  The  “Go  over”  gadget  rotates  these  points  up  towards  the  positive 
z-axis  (in  the  sense  of  longitude  lines).  The  “Go  under”  gadget  rotates  them 
downwards. 
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The  “See  poiat”  and  “Eye  point”  gadgets  move  the  view  plane  between 
these  two  points.  Repeated  clicking  on  the  “See  point”  gadget,  for  example, 
will  move  the  view  plane  closer  to  the  see  point.  This  is  indicated  by  the 
location  of  the  “v-slider”  which  connects  the  two  gadgets.  Moving  the  view 
plane  in  and  out  is  the  best  way  to  control  the  size  of  the  image. 

The  “Zoom  in”  and  “Zoom  out”  gadgets  can  be  used  to  move  the  eye 
point  and  light  poi^it  closer  or  farther  from  the  see  point.  It  can  also  be 
used  to  move  the  see  point  closer  or  farther  from  the  origin.  These  gadgets 
are  less  useful  than  the  “See  point”  and  “Eye  point”  gadgets,  because  (for 
example)  zooming  the  eye  point  towards  the  see  point  also  moves  the  view 
plane,  automatically.  The  net  effect  does  not  actually  increase  the  size  of  the 
image  by  much. 

The  eye  point  can  also  be  rotated  around  the  latitude  lines  by  using  the 
left  and  right  arrow  keys  on  the  keyboard.  The  up  and  down  arrow  keys 
rotate  along  the  longitude  lines.  Again,  the  center  of  rotation  is  the  see 
point. 

FinzJly,  notice  that  clicking  into  the  overhead  map  or  the  altimeter  can 
be  used  to  change  the  locations  of  these  points  much  more  abruptly.  Clicking 
with  the  first  mouse  button  in  the  overhead  map  will,  for  example,  jump  the 
eye  point  to  that  location. 

Hull  gadgets  The  gadgets  below  these  “overhead  map”  gadgets  control 
the  shape  of  what  is  actually  seen.  Clicking  on  the  “COMPUTE  CONVEX 
HULL”  gadget  causes  the  convex  hull  to  actually  be  computed.  If  more  than 
4096  triangles  are  needed  to  compute  the  hull,  the  program  will  beep  at  you 
and  write  an  error  message  to  the  DECterm  window  which  evoked  it.  Click¬ 
ing  on  the  “surface”  gadget  shows  only  the  surface  generated  by  connecting 
the  (i,y,z)  coordinate  triples  from  the  data  file.  The  “Wireframe”  gadget 
calls  up  a  wireframe  representation  of  the  convex  hull  of  this  surface.  The 
“White”  gadget  draws  the  conves  hull  in  all  white,  with  hidden  surfaces  elim¬ 
inated  from  the  image  and  individual  facets  of  the  hull  outlined  in  black.  The 
“Shaded”  gadget  draws  the  hull  most  realistically:  hidden  surfaces  are  elim¬ 
inated  and  the  remaining  surfaces  are  painted  shades  of  grey  depending  on 
the  angle  of  incident  light  emanating  from  the  lamp.  The  “Highlight”  gadget 
attempts  to  show  off  important  aspects  of  the  image.  The  visible  portion  of 
the  surface  is  painted  yellow  (white,  on  a  black  and  white  monitor).  If  part 
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of  the  surface  is  on  the  exterior  of  the  hull,  but  is  on  the  far  side  of  the  hull 
and  so  not  visible,  it  is  painted  red.  If  a  part  of  the  surface  is  interior  to 
the  hull,it  is  painted  brown.  If  the  line  segement  connecting  the  beginning  of 
the  surface  to  the  ending  point  is  also  on  the  convex  hull,  it  is  painted  green 
(white,  on  a  black  and  white  monitor).  This  green  line  usually  represents  a 
sharp  corner  on  the  hull. 

The  “Less  fine”  and  “More  fine”  gadgets  control  how  many  of  the  data 
points  in  the  data  file  are  actually  used.  When  the  program  starts,  it  attempts 
to  find  16  data  points  to  use.  If  the  data  file  contains  128  data  points,  then 
only  every  eighth  of  these  is  used.  Clicking  on  the  “Less  fine”  gadget  cuts  the 
number  of  points  used  in  half.  Clicking  on  the  “More  fine”  gadget  doubles 
them,  up  until  aU  of  the  data  points  in  the  file  are  being  used.  The  purpose 
of  this  is  to  allow  the  user  to  manipulate  “crude”  images  in  order  to  get  the 
proper  view,  before  performing  the  time-consuming  calculations  associated 
with  more  refined  images.  So  for  example,  if  one  wanted  to  rotate  the  image 
quickly,  it  might  make  sense  to  click  on  the  “surface”  gadget  and  the  “Less 
fine”  gadget  first,  so  that  the  rotations  would  appear  more  quickly  on  the 
screen.  Note:  the  program  only  allows  4096  triangles  to  be  displayed  on  the 
screen.  Trying  to  refine  the  image  too  much  coiUd  exceed  that  limit.  If  so, 
the  computer  will  “beep”  at  you,  and  only  render  the  first  4096  triangles  it 
has  calcxilated  (with  three  of  these  being  the  coordinate  axes.) 

On  some  occasions  the  user  might  want  to  see  only  the  trailing  portion 
of  the  surface,  or  the  beginning  portion.  The  next  four  gadgets  control  this. 
Clicking  on  the  “-1- 1  min”  gadget  chops  off  segments  of  the  surface  associated 
with  small  parameter  values.  The  “-  t  max”  gadget  chops  off  segments  of 
the  surface  associated  with  large  parameter  values. 

Scaling  gadgets  Below  the  hull  gadgets  are  six  gadgets  which  double  of 
halve  the  scaling  of  the  i,  y  and  z  axes. 

Files  The  various  parts  of  the  program  as  a  whole  can  be  divided  into  three 
categories.  (1)  Sections  which  compute  the  convex  hull.  (2)  Sections  which 
transform  that  data  into  a  3D  image.  (3)  Sections  which  make  use  of  the 
X- Windows  library  to  render  that  image  on  the  workstation  screen.  These 
routines  are  stored  in  a  number  of  separate  files,  listed  below. 
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main.c  This  file  contains  the  main()  program.  All  global  varibles  are  ini¬ 
tially  declared  here.  Also,  the  main  drawing  routine,  refreshWindow(), 
is  found  in  this  file. 

2d.c  This  file  contains  the  functions  which  transform  device-independent 
coordinates  into  actual  screen  coordinates.  (In  the  device-independent 
coordinate  system,  the  computer  display  is  thought  of  as  a  unit  square, 
with  the  point  (0,0)  in  the  lower  left,  and  (1,1)  in  the  upper  right.)  The 
device-independent  coordinates  themselves  are  generate  by  functions  in 
the  file  3d.c. 

3d.c  This  file  contains  functions  for  transforming  3D  coordinates  to  2D  co¬ 
ordinates.  The  3D  coordinates  are  called  “object  space”  coordinates, 
and  the  2D  coordinates  are  device-independent.  This  file  also  con¬ 
tains  the  functions  which  initialize  the  matrices  needed  to  perform  this 
transformation. 

colorx.c  The  suffix  “x”  on  a  file  name  denotes  that  it  pertains  to  the  X- 
Windows  system.  In  this  case,  the  functions  in  this  file  are  used  to 
initialize  the  colors  and  the  grey-scale  used  by  the  program. 

draw.c  This  file  contcuns  all  of  the  2D  drawing  functions,  such  as  functions 
used  to  draw  lines  and  rectangles  on  the  screen. 

eventx.c  The  suffix  “x”  on  a  file  name  denotes  that  it  pertains  to  the  X- 
Windows  system.  This  file  contains  the  function  which  waits  for  various 
“events”  (mouse  button  clicks,  keyboard  key  presses,  etc.)  and  acts 
upon  them. 

gadgetdata.c  This  file  contains  the  location  and  string  associated  with  each 
gadget. 

getdata.c  This  file  contains  the  function  which  reads  the  data  file.  The  data 
file  consists  of  {x,y)  coordinate  pairs,  one  pair  per  line,  which  define 
the  surface  to  be  convexified.  The  first  line  of  this  data  file  is  an  integer 
which  tells  the  program  how  many  coordinate  pairs  to  expect. 

hull.c  This  file  contains  the  functions  which  compute  the  convex  hull  of  the 
surface. 
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initx.c  The  suffix  “x”  on  a  file  name  denotes  that  it  pertains  to  the  X- 
Windows  system.  This  file  contains  the  functions  which  first  initialize 
and  establish  the  connection  to  the  X-server. 

minmax.c  This  file  contains  various  functions  for  computing  minimums  and 
maximums  of  floating  point  values. 

overhead. c  This  file  contains  the  functions  which  convert  overhead  map 
coordinates  into  screen  coordintes. 

quitx.c  This  file  contains  the  function  which  cleanly  severs  the  connection 
to  the  X-server. 

sort.c  This  file  contains  the  functions  needed  to  perform  a  quick-sort.  This 
is  used  to  sort  the  facets  of  the  convex  hull  and  the  coordinate  axes,  so 
that  they  are  rendered  on  the  screen  in  the  correct  order. 

textx.c  This  file  contains  the  function  which  sets  up  the  X- Windows  font 
to  be  used. 

windowx.c  This  file  contains  the  function  which  opens  a  window  on  the 
X-server  screen. 

thelcon  An  icon  for  the  application  when  it  is  closed.  Note  that  the  Dec  Win¬ 
dows  window  manager  does  not  use  this  icon. 

global. h  A  global  include  file  for  all  of  the  ‘^c”  files. 

prototypes.!!  A  file  of  the  C  function  prototypes,  also  included  in  each  of 
the  “.c”  files. 

makefile  The  make  file  for  the  program. 

surface. data  This  file  contains  the  data  for  the  surface  whose  hull  is  to  be 
computed.  The  first  line  of  this  file  consists  of  an  integer,  the  number 
of  points  on  the  surface.  Each  remaining  line  of  the  file  contains  three 
floating  point  numbers,  the  (i,y,z)  coordinates  of  each  point.  The 
floating  point  numbers  are  separated  by  spaces. 
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hull. data  This  file  is  generated  by  the  hull  program.  The  first  line  of  this 
file  consists  of  an  integer,  the  number  of  triangles  on  the  hull.  Each 
remaining  line  of  the  file  contains  nine  floating  point  numbers,  the 
{x,y,z)  coordinates  of  each  of  the  three  vertices  of  a  triangle.  The 
floating  point  numbers  are  separated  by  spaces. 

surface. f  This  file  contains  a  typical  FORTR.A.N  program  for  creating  the 
file  curve,  data 

Generating  convex  hulls  with  the  gift-wrapping  algorithm 

The  general  algorithm  Suppose  we  have  a  set  of  five  points  in  3D  and 
we  want  to  find  their  convex  hull. 

For  the  moment,  talce  it  as  given  that  we  have  somehow  found  three  points 
which  we  know  form  one  face  of  the  hull.  For  the  sake  of  visualization,  let 
us  set  up  our  coordinate  system  so  that  these  three  points  are  sitting  on  the 
floor. 


a 

/  \ 

/  \ 

/  \ 

c - • 

The  other  two  points  are  hovering  somewhere  above  these  three. 


D  /  \ 

/  \ 

/  B  \ 

c - a 

Choose  any  of  the  three  edges  of  the  face  as  an  edge  to  “wrap”  your  gift 
paper  around.  For  example,  choose  the  edge  oc.  Also  choose  one  of  the 
points  on  this  edge  for  computing  a  vector  which  is  normal  to  the  face:  let 
us  choose  a. 
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Now  compute  the  unit  vector  n,  normal  to  this  face. 

n  =  (c  —  a)  X  (e  —  a),  normalized.  (1) 

We  loop  through  all  of  the  vertices  which  are  not  on  this  face: 

case  vertex  »  B: 

consider  the  triangle  Ca,c,B] 

construct  a  unit  vector,  _ia_,  normal  to  this  triangle 
lot  rho(B)  =  _n_  <dot  product>  _m_ 
case  vertex  a  Q: 

consider  the  triangle  [a,c,D] 

construct  a  unit  vector,  _m_,  normal  to  this  triangle 
let  rho(D)  =  _n_  <dot  product>  _m_ 

As  we  loop  through  aJl  of  these  vertices,  we  look  for  the  smallest  p  vaJue. 
In  other  words,  we  look  for  the  face  whose  normal  is  “most  obtuse”  to  the 
face  we  already  have.  So  we  choose  D. 

. a 

D  /  \ 

I  /  \ 

I  /  B  \ 

c - e 


Now  we  have  two  faces.  How  do  we  precede  from  here?  We  keep  a  list  of 
all  of  the  edges  we  have  created,  and  we  make  sure  that  we  consider  each  edge 
exactly  one  time,  in  terms  of  “wrapping”  the  gift  paper  around  it.  So  for 
example,  we  have  now  considered  the  edge  ca  e.xactly  one  time.  We  should 
never  consider  it  again.  Still  on  our  list  of  edges  are  the  following: 

[c,«]  created  with  our  initial  face 
Ce,a]  created  with  our  initial  face 
Cc,D]  created  by  our  second  face 
Ca,D]  created  by  otir  second  face 
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We  loop  through  ail  of  these  edges  until  we  have  considered  exactly  once 
every  edge  ever  construced.  Note  that  when  we  get  around  to  creating  the 
face  [a,D,B]  we  have  to  be  careful  not  to  put  the  edge  aD  in  our  list  of  edges 
a  second  time.  (It  was  zdready  added  to  our  list  when  we  created  the  face 
[a,c,D].) 

For  a  more  in-depth  discussion  of  this  algorithm,  see  Computational  Ge¬ 
ometry,  an  Introduction  by  Franco  Preparata  and  Michael  Shamos. 

Degenerate  cases  For  our  computations,  we  are  required  to  also  consider 
two  dimensional  degenerate  cases,  where  all  of  the  points  lie  on  a  linear 
manifold.  Then,  the  convex  hull  is  also  a  two  dimensional  object.  Applying 
the  Gift  Wrapping  algorithm  now,  there  is  no  clear  choice  of  “most  obtuse” 
faces,  since  they  are  all  in  fact  parallel  to  one  another.  Assuming  that  the 
points  are  considered  for  candidacy  in  the  same  order  at  every  iteration  of 
the  algorith,  we  would  find  that  the  same  four  points  are  being  chosen  over 
and  over  again,  regardless  of  how  many  points  are  in  the  set. 

That  is,  imagine  five  coplanar  points,  a,b,c,d,e.  In  extending  face  [a,b,c] 
we  could  choose  either  point  dor  point  e;  they  are  both  equally  good  choices. 
Our  program  considers  these  points  in  order,  so  it  would  choose  point  d. 
Likewise  in  extending  face  [a,b,d|  we  would  choose  point  c,  and  so  on.  Point 
c  would  never  be  used,  and  yet  point  e  might  well  lie  on  the  two  dimensional 
huU. 

In  our  implementation  of  the  Gift  Wrapping  algorithm,  we  overcome  this 
problem  by  adding  the  extra  criterion  that  for  two  equally  good  choices  of 
new  faces,  we  choose  the  one  which  uses  the  point  least-frequently  utilized 
at  that  phase  of  the  computation.  Thus,  in  the  above  example,  [a,b,c]  would 
be  extended  to  d,  but  [a,b,d]  would  be  extended  to  e,  since  c  has  been  used 
more  often  so  far  than  e. 

The  first  face  as  a  special  case  The  way  in  which  we  obtain  the  first 
face  of  the  hull  is  a  special  case. 

To  find  the  first  vertex  in  the  face  choose,  say,  the  lowest  point  in 
the  set  of  vertices  as  our  starting  vertex.  We  are  guaranteed  that  this  vertex 
win  be  on  the  convex  huU. 

To  find  the  second  vertex  in  the  face  run  line  segments  through  the 
first  point  and  each  of  the  other  iV  —  1  points.  Choose,  say,  the  one  whose 
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angle  with  the  x-auds  is  largest. 

To  find  the  final  vertex  in  the  face  run  a  plane  through  the  plane 
through  the  edge  joining  those  two  points  and  rotate  that  plane  around  this 
new  line  segment.  Compute  the  normal  vector  of  these  planes  as  they  hit 
each  of  the  other  N  —  2  points.  Choose,  say,  the  one  whose  angle  with  the 
X-axis  is  largest. 

These  three  point  form  the  first  face  of  the  convex  hull. 

Rendering  3D  objects 

3D  to  2D  transformations  Given  a  set  of  triangles  in  three  dimensions 
(the  hull),  we  now  consider  how  these  triangles  would  be  projected  onto  a 
“view  plane”  so  that  their  image  can  be  displayed  on  the  computer  screen. 
More  precisely,  we  need  to  find  a  transformation  which  maps  points  in  three 
dimensions  to  pixels  on  the  computer  screen. 

There  are  four  coordinates  systems  which  must  be  used  for  this  transfor¬ 
mation.  (See  Figure  5.) 

1.  The  coordinate  system  of  the  3D  object  space,  (x  =  right,  y  =  up,  z 
=  inward,  away  from  observer) 

2.  The  coordinate  system  of  the  2D  view  plane;  the  origin  in  this  coordi¬ 
nate  space  is  the  point  c. 

3.  The  device-independent  screen  coordinate  space  [0, 1]  x  [0, 1]. 

4.  The  device-dependent  screen  coordinate  space  (pixels). 

There  are  several  important  points  in  these  spaces.  Note  that  since  there 
is  more  than  one  space,  each  of  these  points  might  be  represented  using 
different  coordinates.  (See  Figure  21.) 

•  the  point  eye,  where  the  observer’s  eye  is 

•  the  point  see,  where  the  observer  is  looking  (i.e.  the  target  of  his  view) 

•  the  point  c,  which  is  midway  between  eye  and  see;  note  that  the  scalar 
variable  p  controls  exactly  where  between  see  and  eye  the  point  c  lies 

•  the  point  o,  which  is  the  point  in  the  object  space  that  is  to  be  plotted 
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•  the  point  v,  on  the  view  plane,  to  which  o  is  mapped;  v  lies  somewhere 
along  the  line  segment  connecting  eye  to  o 

There  are  also  several  mappings  being  used. 

•  the  mapping  PP  maps  from  o  to  v,  but  both  o  and  v  are  represented 
using  their  3D  object  space  coordinates 

•  the  mapping  T  converts  v  from  its  3D  coordinates  to  its  2D  natural 
view  plane  coordinates  (with  origin  =  c) 

•  the  mapping  DVl  converts  v  from  its  2D  view  plane  coordinates  to  its 
2D  screen  device-independent  coordinates  [0,1]  x  [0,1] 

•  the  mapping  DVD  converts  v  from  its  2D  screen  device-indpendent 
coordinates  to  device-dependent  coordinates  (pixels) 

How  the  mappings  are  derived 

PP:  represent  v  as  v  =  aa-h  (1  ~  a)eye,  and  note  that  (c  ~  v)  ■  (c  -  eye)  =  0. 
Then  solve  for  a.  One  you  have  a,  you  can  compute  u  as  a  linear 
combination  of  o  and  eye. 

T:  note  that  dj  =  P(see  +  (0,1,0))  lies  in  the  y-axis  (up  axis)  of  the  view 
plane.  Therefore  the  y-axis  is  given  as  tj  ■=  d2  —  c.  Note  that  ti  =  see  —  c 
is  perpendicular  to  the  view  plane.  Therefore  di  =  ti  x  t2  must  be  the 
r-axis  of  the  view  plane.  Then  normalize  di  to  vi  and  tj  to  V2-  Let  vi 
be  the  first  row  of  a  matrix  A  and  V2  be  the  second  row  of  .4.  Then 
/1(t;  —  c)  converts  a  point  v  in  the  view  plane  from  its  3D  coordinates 
to  its  2D  coordinates. 

DVI:  DVI  is  device  independent.  Still,  we  have  to  decide  how  much  of  the 
view  plane  we  want  the  device  to  capture.  That  is,  the  view  plane  is  (of 
course)  infinitely  big,  and  we  just  want  to  show  some  rectangle  on  that 
plane.  Let  maxVg  and  maxVy  be  the  maximimum  (and  minimum)  x 
and  y  coordinates  that  we  want  to  capture.  (Without  loss  of  generality 
we  can  just  let  them  be  1.)  Then  we  should  multiply  all  view-plane 
X  coordinates  by  l/{2maxVg)  and  y  coordinates  by  1/(2  *  maxVy)  so 
that  the  rectangle  we  want  to  capture  is  now  in  the  domain  [—.5,  +.5]  x 
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[—.5,  +.5].  Then  we  should  add  .5  to  each  coordinate  Now  all  the  points 
that  are  in  the  rectangle  we  want  to  see  have  coordinates  in  [0, 1]  x  [0, 1]. 

DVD:  DVD  is  device  dependent.  Assume  for  example  that  the  screen  co¬ 
ordinate  system  has  origin  in  the  upper  left-hand  corner  of  the  screen, 
and  that  the  screen  is  I'V  pixels  wide  and  If  pixels  high.  Then  in  device- 
independent  coordinates  we  have  (0,0)  — +  (0,/f)  and  (1,1)  — ►  {W,0). 
So  the  point  (uijVj)  in  [0,1]  x  [0,  Ij  gets  mapped  to  {V2W,  1  —  viH). 

Hidden  surface  elimination  At  this  point,  we  assume  that  we  have  a 
collection  of  triangles  (the  hull),  and  a  transformation  which  projects  these 
triangles  onto  the  computer  screen.  The  resulting  image  would  be  a  “wire¬ 
frame”  representation  of  the  convex  hull.  In  order  to  present  a  more  realistic 
computer  image  of  the  hull,  we  should  make  invisible  those  triangles  which 
are  on  the  far  side  of  the  hull  from  the  observer.  That  is,  we  should  eliminate 
from  view  the  hidden  surfaces  of  the  hull. 

Triangle  sorting  One  easy  approach  to  this  problem  is  to  calculate  the 
coordinates  of  the  center  of  each  triangle,  and  then  calculate  the  distance 
from  the  center  of  each  triangle  to  the  eye  point.  One  then  sorts  the  list 
of  triangles  and  draws  the  triangles  from-back-to-front,  so  that  the  triangle 
nearest  the  eye  point  is  drawn  last.  As  each  triangle  is  drawn,  it  is  interior 
is  shaded  white  with  a  “flood  fill”  so  that  it  over-draws  the  triangles  behind 
it.  In  this  way,  hidden  surfaces  are  eliminated. 

Back-plane  culling  Unfortunately,  there  are  some  degenerate  cases  for 
which  this  algorithm  does  not  work  well.  For  example,  consider  the  triangles 
[a,b,c]  and  [a,b,d]  below. 


//I 
/  /  I 
/  /  I 
/  /  I 

d _ / - b 

/  / 

/  / 
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/  / 

// 

c 

Here,  triangle  [a,b,c]  is  in  front  of  triangle  [a,b,d],  and  the  algorithm  described 
above  would  draw  these  two  triangles  in  the  correct  order.  Now,  however, 
imagine  moving  the  point  c  downwards  towards  negative  infinity.  Then  the 
center  of  triangle  [a,b,c]  would  also  move  downwards  towards  negative  infin¬ 
ity,  and  dO  the  center  of  triangle  [a,b,d]  would  eventually  be  closer  to  our  eye. 
Thus,  triangle  [a,b,d]  would  incorrectly  be  drawn  in  front  of  triangle  [a,b,c]. 

Since  the  object  we  are  drawing  is  known  to  be  convex,  we  can  make  use 
of  a  technique  called  “back  plane  culling”.  Again,  consider  the  two  triangles 
above,  but  also  consider  the  triangles  [a,c,d]  and  [b,c,d]  so  that  we  now  have 
a  convex  figure  (a  tetrahedron).  Note  that  triangles  [a,b,d]  and  [b,c,d]  should 
not  be  visible  to  the  eye  point,  since  they  are  obscured  by  triangles  [a,b,c] 
and  [a,c,d]. 

Compute  a  point  e  which  is  in  the  center  of  these  four  triangles;  for 
instance,  let  the  coordinates  of  c  be  the  average  of  the  coordinates  of  a,b,c,d. 
Let  n  be  a  vector  normal  to,  say,  triangle  (a,b,c].  Project  the  eye  point  onto  n 
and  project  e  onto  n.  Note  that  they  fall  on  opposite  sides  of  the  the  vector; 
that  is,  the  magnitudes  of  the  projections  have  opposite  signs.  Then  triangle 
[a,b,c]  must  be  in  front  of  the  center  point  e,  and  therefore  it  is  a  triangle 
which  should  be  drawn.  Repeating  these  computations  with,  say,  triangle, 
[a,b,d],  we  see  that  the  center  point  e  and  the  eye  point  lie  on  the  same  side 
of  the  triangle,  and  therefore  triangle  [a,b,d]  should  not  be  drawn. 

Combining  the  two  This  technique  of  back  plane  culling  only  works  for 
single  convex  figures.  In  the  ceise  of  the  images  rendered  by  the  hull  program, 
there  is  one  convex  figure  as  well  as  three  coordinate  a.xes.  The  coordinate 
axes  themselves  are  treated  as  degenerate  triangles.  After  performing  back 
plane  culling  on  the  convex  figure,  the  hull  program  also  sorts  the  triangles 
so  that  the  coordinate  axes  will  be  drawn  at  the  right  time.  That  is,  they 
will  be  partially  obscured  when  they  are  behind  the  convex  object,  and  they 
will  be  drawn  last  when  they  are  in  front  of  the  convex  object.  So,  hull  uses 
a  combination  of  these  two  hidden  surface  techniques. 

More  sophisticated  techniques,  such  as  z-buffering,  are  available,  but  the 
above  two  approaches  were  chosen  for  their  simplicity  and  to  reduce  rendering 
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time.  It  should  be  noted  that  degenerate  cases  can  still  occur.  For  instance, 
a  coordinate  axis  might  incorrectly  appear  in  front  of  one  facet  of  the  conve.x 
hull  if  the  “center”  of  the  axis  is  closer  to  the  eye  than  the  center  of  the  facet. 

Shading  At  this  point  we  have  a  fairly  realistic  image  of  the  convex  hull,  ex¬ 
cept  that  each  facet  of  the  hull  is  shaded  the  same  color  (presumably  white). 
Better  three  dimensional  depth  clues  can  be  obtained  for  the  user’s  eye  by 
shading  the  various  facets  of  the  hull.  In  keeping  with  the  goal  of  computa¬ 
tional  simplicity  and  fzist  rendering,  we  adopt  the  following  algorithm.  Let 
point  I  be  the  location  of  an  imaginary  light  source  (or  lamp)  in  the  object 
space.  For  each  facet  of  the  convex  hull,  compute  a  normal  vector  n  as  well 
2is  a  vector  m  whose  tail  coincides  with  that  of  n  but  whose  head  is  at  L 

I  /I 

fl  / 

a|  / 

cl  / 
a  I  /  alpha 

tl _ n 


Let  a  be  the  angle  between  these  two  vectors.  If  a  is  near  1,  then  the  lamp  is 
nearly  orthogonal  to  the  facet,  so  the  facet  is  shaded  a  very  light  color.  If  a 
is  near  0,  then  the  lamp  is  nearly  parallel  to  the  facet,  so  it  is  painted  dark. 
(Note  that  if  a  is  near  -1,  we  again  paint  the  facet  a  light  color,  so  in  fact  we 
have  two  lamps  in  the  object  space,  diametrically  opposite  each  other.) 

Programming  with  X- Windows  Many  of  the  the  X- Windows  routines 
used  in  hull  are  derived  from  examples  found  in  the  book  .V  Window  Appli¬ 
cations  Programming  by  Johnson  and  Reichard.  A  more  complete  treatment 
can  be  found  in  Introduction  to  the  X  Window  System  by  Oliver  Jones.  In 
brief,  there  are  three  large  sections  and  one  small  section  of  hull  devoted  to 
dealing  with  the  X- Windows  system. 

1.  The  first  section  deals  with  actually  opening  up  an  X-Window  on  the 
DECStation  screen.  This  includes  opening  the  window  as  well  as  setting 
up  the  colors  and  the  fonts  to  be  used.  The  files  involved  here  are 
windowx.c,  colon. c  and  textx.c. 


37 


2.  The  second  section  deals  with  drawing  the  convex  hull  and  gadgets  into 
this  window.  The  main  file  of  interest  here  is  demox.c  which  contains 
the  function  refreshWindow().  The  files  2d.c,  3d.c,  hull.c,  draw.c,  and 
gadgetdata.c  are  also  involved  with  drawing  the  screen,  but  they  do  not 
contain  any  X- Windows  code. 

3.  The  third  section  deals  with  waiting  for  mouse  or  keyboard  events  from 
the  user,  and  taking  the  appropriate  action  for  each.  The  main  file  of 
interest  here  is  eventx.c  which  contains  the  function  eventLoop(). 

4.  The  final,  small,  section  deals  with  closing  the  X- Window  cleanly.  This 
section  is  contained  in  the  file  quitx.c. 

Possible  improvements  to  the  code  Several  compromises  have  been 
made  in  the  implementation  of  the  hull  code,  either  to  protect  the  relative 
simplicity  of  the  program  or  to  increase  the  rendering  time. 

•  The  hidden  surface  elimination  algorithms  could  be  made  more  sophis¬ 
ticated,  although  this  would  probably  increase  rendering  time. 

•  The  sorting  of  the  triangles  includes  sorting  all  of  the  triangles,  in¬ 
cluding  those  which  were  culled.  Rendering  time  could  be  reduced  by 
sorting  only  the  non-cuUed  triangles;  this  would  make  the  program 
slightly  more  complex. 

•  If  the  set  of  point  whose  hull  is  to  be  computed  are  all  co-planar,  then 
the  gift-wrapping  algorithm  tends  to  create  far  more  triangles  than  are 
really  necessary  to  compute  the  hull.  This  is  considered  a  degenerate 
case. 

•  At  the  moment,  the  routine  which  computes  the  default  location  of  the 
eye,see, light-points,  called  setEye(),  needs  the  information  about  the 
convex  hull  from  getData()  in  order  to  set  the  points.  But  getData() 
also  needs  some  information  from  setEye()  in  order  to  place  the  co¬ 
ordinate  axes.  At  the  moment,  the  main()  program  gets  around  this 
by  initially  calling  getData(),  then  setEye(),  and  then  getData()  again. 
This  needs  to  be  fixed,  probably  by  creating  a  new  set.A..xes()  routine. 
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•  Facets  of  the  hull  which  are  nearly  edge-on  to  the  observer  are  not 
usually  rendered  in  the  “hidden  surface  elimination”  mode  of  the  hull 
program.  Normally,  this  does  not  present  a  problem.  If,  however, 
one  uses  the  axes  re-scaling  feature,  then  the  absence  of  nearly  edge-on 
facets  could  be  noticeable,  since  under  the  new  scaling  of  the  axes  these 
facets  are  no  longer  edge-on.  Currently,  the  hidden  surface  elimination 
is  done  before  the  re-scaling;  that  is  the  source  of  this  bug.  To  fix  it, 
the  re-scading  should  be  done  before  the  hidden  surface  elimination. 
Performing  the  calculations  in  that  order,  however,  would  be  more 
time-consuming  for  the  computer.  Since  the  bug  rarely  appears,  it  is 
not  clear  that  fixing  it  would  be  worth  the  increased  computational 
cost. 
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c  Program  to  compute  data  for  the  convex  hull  generation. 


integer  i^nOata 

real  minT,maxT, deltaT 


real 


t,x,y,2 


nData  as  1024 
minT  0.0 
maxT  »  1.0 

delta!  =  (maxT-minT) /float (nData-1) 


open  (unit=l,  file's' curve .  data' ) 
'  write  (1, 100)  nData 
100  format (lx, i4) 

do  10  i  =*  0, nData-1 

t  =  float (i) *deltaT  +  minT 
call  eval  (t,x,y,  z) 
write(l,200)  x,y,z 
200  format (lx, 3 (f 12 . 6, lx) ) 

10  continue 


end 

c - 

subroutine  eval (t, x, y, z) 

real  t,x,y,z 

real  AA(3, 3) , xx (3) ,bb (3) 

real  A,  B ,  C,  D ,  bl ,  b2 ,  b3 ,  kplus ,  )cminus ,  muplus ,  miaminus 

A  =  30.0 

B  =  0.0 

C  =  0.0 

D  *  2.0 

•bl  =  1.0 

b2  =  85.0 

b3  =  50.0 

kminus  =  0.1 

kplus  =  1.5 

muminus  =  2.0 

muplus  =  30.0 

AA(1,1)  =  D  -  (kplus  -  t  *  (kplus  -  kminus)) 
AA(1,2)  =  -C 
AA(1,3)  =  B 

AA(2,1)  *  C 

AA(2,2)  *  -D  -  (muplus  -  t  *  (muplus  -  muminus)) 
AA(2,3)  =  -A 

AA(3,1)  =  -B 
AA(3,2)  =  A 

AA(3,3)  =  -D  -  (muplus  -  t  *  (muplus  -  muminus)) 

bb(l)  =  -bl 
bb(2)  »  -b2 
bb(3)  =  -b3 

call  Isarg (3, AA, 3,bb, 1,  xx) 

X  =  XX  ( 1 ) 

y  »  XX  (2) 
z  s  XX  ( 3 ) 


c  test  data 

c  X  *  sin (t) +2.0 

c  y  *  sqrt (t) 

c  z  »  t*t/25.0 


X  »  (1.0-t) *sin(16.0*t) 
y  «  (1 . 0-t) *cos (16 . 0*t) 
z  -  (2.0*(t-0.5))**3  +  0.5 

return 

end 


#  X-Windows  make  file 

*« 

##  gcc 

♦#  cc 

KILER=  cc 
:»  hull 

«# 

##  “0  turn  on  optimizer 
##  -g  turn  on  debugger 
##  -Wall  nag  nag  nag 
CFLAGS*  -g 

## 

##  R4  of  the  X  library: 
##LIBS=  -1X11  -Im 
##  R3  of  the  X  library: 
LIBS=  -L/X11R3  -1X11  -Im 

*# 

0BJECTS=  ' 

main . o  ^ 

2d.o  ' 

3d.o  ' 

colorx.o  ' 

draw . o  ' 

eventx . o  ' 

gadgetdata.o  ' 
getdata.o  ^ 

hull.o  ' 

initx.o  ' 

minmax . o  ^ 

overhead. o  ' 

quitx . o  ' 

•sort.o  ' 

textx . o  ' 

windowx . o 


INCLUDES®  global. h  prototypes. h 

f  # 

$ (EXEC) :  $ (OBJECTS)  $ (INCLUDES) 

$ (COMPILER)  -o  $ (EXEC)  $ (OBJECTS)  $ (LIBS) 

«# 

.c.o:  $ (INCLUDES) 

$ (COMPILER)  $ (CFLAGS)  -C  $< 

********************** 

********************** 

makedata :  makedata . f 

f77  -o  makedata  -u  makedata. f  -limsl 


/★  FILE:  prototypes.!! 

★*  prototypes  */ 

/*  X-specific  functions  *! 

^id  main  (void)  ; 

Aid  ref  reshWindow  (Window  theWindow)  ; 

^id  initX  (void)  ; 
void  getXInf o (void) ; 

void  setColorWithName (GC  theGC, char  theName [ ] ) ; 

void  initDefaultColors (void) ; 

void  setColor(GC  theGC, int  colorNumber) ; 

Window  openWindow ( int  x,int  y,int  width, int  height, int  flag,GC  ^theNewGC) ; 
int  .  cr eat eGC (Window  theNewWindow, GC  *theNewGC) ; 

XFontStruct  *initFont (GC  theGC, char  f ontName [ ] ) ; 
int  eventLoop (void) ; 
void  initEvents (Window  theWindow) ; 
void  quitX (void)  ; 


I*  application  functions  */ 
void  getData (void) ; 
void  chull (void) ; 
void  writeData (void) ; 
void  setEye (void) ; 

float  max4 (float  w, float  x, float  y, float  z) ; 
float  min4 (float  w, float  x, float  y, float  z) ; 
float  max3 (float  w, float  x, float  y) ; 
float  min3 (float  w, float  x, float  y) ; 
float  max2  (float  w,  float  x)  ; 
float  min2 (float  w, float  x) ; 
int  altTop (float  x) ; 
int  viewLeft (float  x) ; 
int  viewTop (float  x) ; 

«pat  fromAltTop  (int  i)  ; 
pat  f romViewLeft (int  i) ; 
oat  fromViewTop (int  i) ; 
void  gadgetData (void) ; 

void  sortTriangles (int  doDraw[],int  sorted []); 
int  whichDraw (int  doDraw[]); 
int  get  Shade  (int  i)  ; 

int  isAnEdge  ^nt  pi,  int  p2,  intTri2U!gle  T)  ; 


/*  sorting  functions  */ 

int  partition (float  values [], int  index [], int  i,int  j,int  p index ) ; 
void  quicksort (float  values[jfint  index [], int  first, int  last); 
void  bubbleSort (float  values (], int  index [], int  first, int  last); 
int  findPivot (float  values [], int  index[3,int  i,int  j) ; 
void  swap (float  values [], int  index [], int  l,int  r) ; 


I*  2D  graphics  functions  */ 

dvdCoord  dvi2dvd (dviCoord  theDviCoord) ; 

dviCoord  vr2dvi (vrCoord  theVrCoord) ; 

void  dvdDrawLine (Window  theWindow, GC  theGC, dvdCoord  dvdp, dvdCoord  dvdq) ; 
void  dvdDrawRect angle (Window  theWindow, GC  theGC, dvdCoord  dvdp, dvdCoord  dvdq) 

void  dvdFillRectangle (Window  theWindow, GC  theGC, dvdCoord  dvdp, dvdCoord  dvdq) 
void  dvdDrawGadget (Window  theWindow, GC  theGC, int  whichGadget) ; 
void  dviDrawLine (Window  theWindow, GC  theGC, dviCoord  dvip, dviCoord  dviq) ; 
void  vrDrawLine (Window  theWindow, GC  theGC, vrCoord  vrp,vrCoord  vrq) ; 
void  dvdDrawPoint (Window  theWindow, GC  theGC, dvdCoord  dvdp) ; 
void  vrDrawPoint (Window  theWindow, GC  theGC, vrCoord  vrp)  ; 

void  dvdPrint (Window  theWindow, GC  theGC, dvdCoord  dvdp, char  theString [ ] ) ; 
v^d  vrPrint (Window  theWindow, GC  theGC, vrCoord  vrp, char  theString []) ; 

^^3D  graphics  functions  */ 
vrCoord  os2vr (osCoord  theOsCoord) ; 

void  osDrawLine (Window  theWindow, GC  theGC, osCoord  osp,osCoord  osq) ; 
void  initShading (void) ; 


void  osDrawTriaingle  (Window  theWindow,GC  theGC,  triangle  theTriangle, 
int  theColor)  ; 

void  osDrawPoint (Window  theWindow,GC  theGC, osCoord  osp) ; 

void  osPrint (Window  theWindow,GC  theGC, osCoord  osp, char  theString [ ] ) ; 

^^d  PSInit  (void)  ; 

^■.d  initPP  (void) ; 
void  initT (void) ; 
void  initR(void); 

void  cross (float  u[], float  v[], float  w[]); 

void  normalize (float  u[], float  v[]); 

float  norm (float  v[]); 

float  dotprd( float  u[], float  v[]); 

void.  PSPlot  (float  oi],  float  vr[i); 

void  permute (float  o [ ] ) ; 

void  unpermute (float  o [ ] ) ; 

void  doPP (float  o[], float  ov[]); 

void  doT (float  ov[i, float  v[]); 

void  doR (float  v[], float  vr[i); 

void  rect2sphere (float  rect [ ] , float  sphere [ ] ) ; 
void  sphere2rect (float  sphere [ ] , float  rect [ ] ) ; 


/*  convex  hull  functions  */ 


int 

int 

int 

Triangle 

int 

int 

Triangle 

void 


int 

int 


langle 


paratmCurve  (osCoord  theData  [  ] ,  float  minT,  float  maxT,  int  n)  ; 
hull3d (osCoord  theData [ ] , triangle  theHull [ ] , intTriangle  intHull [ ] , int  n 
Giftwrapping (osCoord  theData [ ] , triangle  theHull [ ] , intTriangle  intHull [ ] 
findFirstFacet (osCoord  theData [], triangle  theHull [], int  freq[], 
int  numD) ; 

addToFile (Triangle  F, Edge  T [] , int  numT) ; 
push  (Triangle  F,  Triangle  Q[],int  nximQ)  ; 
pop  (Triauigle  Q(],int  nvimQ)  ; 
getEdges (Triangle  F,Edge  t [] ) ; 
isCommon (Edge  at , Edge  T [ ] , int  numT) ; 

giftWrap  (Edge  e,Triauigle  F,  osCoord  theData  [],  int  freq[],int  numD)  ; 
insertDelete  (Triangle  F,Edge  T[],int  n\imT)  ; 

storeh (Triangle  F, triangle  theHull [ ] , intTriangle  intHull [ ] , osCoord  then 


/*  FILE:  global. h 

**  Structures  pertaining  to  this  specific  application  */ 


typedef  struct  { 
^^nt  horizontal; 
^Pnt  vertical; 

)  dvdCoord; 


typedef  struct  { 
float  x; 
float  y; 

}  dviCoord; 


typedef  struct  { 
float  x; 
float  y; 

)  vrCoord; 


/*  device  dependent  coordinate  system  */ 


I*  device  independent  coordinate  system  */ 


/*  view-rectangle  coordinate  system  */ 


typedef  struct  {  I*  object  space  coordinates  */ 
float  x; 
float  y; 
float  z; 

}  osCoord; 


typedef  struct  {  /*  a  triauigle  in  object  space  */ 
float  vlx;  float  vly;  float  viz; 
float  v2x;  float  v2y;  float  v2z; 
float  v3x;  float  v3y;  float  v3z; 
float  centerx;  float  centery;  float  centerz; 
float  normalx;  float  normaly;  float  normalz; 

}  triangle; 


6edef  struct  { 
'nt  pi; 
int  p2; 
int  p3; 

}  intTriangle; 


/*  the  data  numbers  of  a  triangle  on  the  curve  */ 


typedef  struct  {  int  vertex[4];  )  Triangle; 
typedef  struct  {  int  vertex [3];  }  Edge; 


typedef  struct  { 
int  windowWidth; 
int  windowHeight ; 
int  rightBarWidth; 
int  topBarHeight ; 
int  dvdWidth; 
int  dvdHeight; 
float  vrLeft; 
float  vrRight; 
float  vrTop; 
float  vr Bottom ; 
float  osLeft; 
float  osRight; 
float  osTop; 
float  osBottom; 
float  osFront; 
float  osBack; 
float  vcLeft; 
float  vcRight; 
^^loat  vcTop; 
^pioat  vcBottom; 
float  vcFront; 
float  vcBack; 
float  rho; 
float  tilt; 


/*  window  parameters  */ 

/*  menu  bar  parauneters  */ 

/*  device  dependent  coordinate  parameters  */ 
/*  view-rectangle  coordinate  parameters  */ 

/*  object-space  coordinate  parameters  */ 


/*  object-space-view-cube  coordinate  parameters  */ 


/*  various  transformation  parameters  */ 


float  C  [4] ; 
float  At3]  [4]  ; 
float  beta; 
float  eye[4]; 

•float  see[4]; 
float  light [4]; 
float  Rotate [3] [3]  ; 
inf  pi ot Type; 
inf  solidType; 
int  shadingColor [66]; 
float  x_scale; 
float  y_scale; 
float  z  scale; 

}  coordFarams; 

typedef  struct  { 
int  top; 
int  bottom; 
int  left; 
int  right ; 
char  St ring [80]; 

}  gadget; 


/*  gadget  numbers  */ 


# define 

QUIT 

0 

# define 

CCWISE 

1 

#def ine 

CLWISE 

2 

# define 

OVMAG 

3 

fdefine 

OVMIN 

4 

# define 

OVHEAD 

5 

tdefine 

ALT 

6 

# define 

ALTMAG 

7 

J||efine 

ALTMIN 

8 

Hfine 

INWARD 

9 

tdefine 

OUTWARD 

10 

#define 

VIEWIN 

11 

tdefine 

VIEWOUT 

12 

tdefine 

OVER 

13 

tdefine 

UNDER 

14 

tdefine 

AXESG 

15 

tdefine 

WIREG 

16 

tdefine 

HIDEG 

17 

tdefine 

SHADG 

18 

tdefine 

COARSE 

19 

tdefine 

FINE 

20 

tdefine 

MINDM 

21 

tdefine 

MINDP 

22 

tdefine 

MAXDM 

23 

tdefine 

MAXDP 

24 

tdefine 

HIGHLT 

25 

tdefine 

WRITEDT 

26 

tdefine 

X2 

27 

tdefine 

X5 

28 

tdefine 

y2 

29 

tdefine 

Y5 

30 

tdefine 

Z2 

31 

tdefine 

Z5 

32 

tdefine 

DOHULL 

33 

tdefine 

NXmGADGETS  33 

J^efine 

STRLEN 

80 

^Kfine 

MAXDATA 

1024 

IWef ine 

MAXTRI ANGLES 

4096 

tdefine 

MAXEDGES 

2048 

/*  plotting  axes  types  */ 


/*  gadget  size  parameters  */ 
♦define  gadgetTall  16 
♦define  gadgetBorder  8 
♦define  gadgetWide  57 


/★  FILE:  textx.c 

**  Text  rendering  routines. 

/*  X-windows  include  files; 
iclude  <X11/Xlib.h> 


*/ 

*/ 


iclude  "global. h" 

♦include  "prototypes .h" 

/*  Global  variables:  */ 
extern  Display  *theDisplay; 


/*  Initialize  a  font.  */ 

XFontStruct  *initFont  (GC  theGC,char  fontNeune[]) 

{ 

XFontStruct  *fontStruct; 

fontStruct  =  XLoadQueryFont (theDisplay, fontName) ; 

if  (fontStruct  !*  0)  {  XSetFont (theDisplay, theGC, fontStruct->f id) 
return (fontStruct) ; 

}/*  end  function  initFontO  */ 


/*  FILE:  windowx.c 
**  Put  up  a  window.  */ 

/*  X-windows  include  files:  */ 

Include  <X11/Xlib.h> 

^^clude  <X11/Xutil.h> 

/*  Standard  I/O  include  file:  */ 

♦include  <stdio.h> 

♦include  "global. h” 

♦include  "prototypes .h" 

/*  The  bitmap  file  for  the  application's  icon:  */ 
♦include  "the I con" 

/*  Global  variables:  */ 

extern  Display  *theDiaplay; 

extern  int  theScreen; 

extern  int  theDepth; 

extern  unsigned  long  theBlac]cPixel; 

extern  iinsigned  long  theWhitePixel; 

extern  coor^aramis  theCoordParams; 

♦define  BORDER  WIDTH  2 

♦define  WINDOW  TITLE  "Convex  Hull" 


/*  Function  to  open  a  window.  *! 

Window  openWindow (int  x,int  y/ int  width, int  height, int 


XSetWindowAttributes 

XSizeHints 

XClassHint 

unsigned  long 

Window 

Pixmap 

XWMHints 


theWindowAttributes ; 

theSizeHints ; 

theClassHint; 

theWindowMasic; 

theNewWindow; 

thelconPixmap; 

theWMHints; 


flag,GC  *theNewGC) 


/*  Figure  out  how  big  the  window  should  be.  If  the  user  asked  for  width 
**  or  depth  ■  -1,  they  want  the  window  to  be  as  big  as  possible.  */ 
if  (width  *=  -1)  {  width  =*  DisplayWidth  (theDisplay,  theScreen)  ;  } 

if  (height  ==  -1)  {  height  =  DisplayHeight (theDisplay, theScreen) ;  } 

/*  for  our  application,  this  information  needs  to  be  made  global  too:  */ 
theCoordParauns  .  windowWidth  =  width; 
theCoordParams .windowHeight  =  height; 

/*  Define  the  window's  attributes.  */ 

theWindowAttributes  .border__pixel  =  BlackPixel  (theDisplay,  theScreen)  ; 

theWindowAttributes .background_pixel  *  WhitePixel (theDisplay, theScreen) ; 
theWindowAttributes . override  redirect  *  False; 

theWindowMask  =  CWBackPixel  T  CWBorderPixel  |  CWOverrideRedirect ; 


/*  Create  a  window  definition  on  the  display.  */ 

theNewWindow  =  XCreateWindow (theDisplay, RootWindow (theDisplay , theScreen)  , 
X, y, width, height , BORDER_WIDTH, theDepth, InputOutput ,  CopyFromParent , 
theWindowMask, &theWindowAttributes) ; 

/*  Convert  the  icon  file  into  Pixmap  format.  */ 

thelconPixmap  =  XCreateBitmapFromData (theDisplay, theNewWindow, theIcon_bit 
theIcon__width,  theIcon_height)  ; 

/*  Define  the  icon  to  be  associated  with  this  application  (window) .  */ 


theWMHints .  icon_^ixinap  *  thelconPixmap; 
theWMHints . initial_state  =  NormalState; 
theWMHints . flags  =  IconPixmapHint  |  StateHint; 

XSetWMHints (theDisplay, theNewWindow, &theWMHints) / 


/*  Define  the  application  icon  naune.  */ 
XSetlconName (theDisplay, theNewWindow, WINDOW_TITLE) ; 


/*  Define  the  class  and  nautie  of  the  application  (window)  .  */ 
theClassHint .  res_naine  =  WINDOW_TITLE; 
theClassHint . res_class  =  WINDOW  TITLE; 

XSetClassHint (theDisplay, theNewWindow, fitheClassHint) ; 

/*  Define  the  window's  desired  size  and  position.  */ 

theSizeHints . flags  =  PPosition  |  PSize; 

theSizeHints . X  =  x; 

theSizeHints . y  =  y; 

theSizeHints . width  =  width; 

theSizeHints .height  =  height; 

XSetNormalHints (theDisplay, theNewWindow, StheSizeHints) ; 


/*  Create  a  graphics  context  (GC)  for  the  window.  See  below.  */ 
if  (createGC (theNewWindow, theNewGC)  ==  0)  { 

XDestroyWindow (theDisplay, theNewWindow) ; 
return ( (Window)  0) ; 

}/*  end  if  */ 


/*  Now  that  the  window  is  defined,  map  it  to  the  screen.  */ 
XMapWindow (theDisplay, theNewWindow) ; 


/*  Flush  out  all  of  the  queued  up  X- requests  to  the  X-server.  */ 
XFlush (theDisplay) ; 


return (theNewWindow) ; 


}/*  end  function  openWindow()  */ 


/*  Create  a  graphics  context  (GC)  for  the  window.  */ 
int  createGC (Window  theNewWindow, GC  *theNewGC) 

{ 

XGCValues  theGCValues; 

*theNewGC  =  XCreateGC (theDisplay, theNewWindow, (unsigned  long)  0, 
StheGCValues) ; 

if  (^theNewGC  ==  0)  {  return(O);  }  /*  error:  unable  to  create  a  GC  */ 

else  { 

XSetForeground (theDisplay , *theNewGC, theBlackPixel) ; 

XSetBackground (theDisplay, *theNewGC, theWhitePixel) ; 
return ( 1 ) ; 

}/*  end  if  */ 


}/*  end  function  createGC () 


/*  FILE:  sort.c 
**  Routines  for  sorting.  */ 


♦include  <X11/Xlib.h> 
iclude  <X11/Xutil .h> 
xclude  "global. h" 
♦include  "prototypes .h 


n 


/*  function  bubbleSort  */ 

void  bxabbleSort  (float  values  [],int  index  [],int  first,  int  last) 

{ 

int  i , j ; 

for  (i  =  first;  i  <=  last-1;  ++i)  { 

for  (j  =  last;  j  >=  i+1;  — j)  { 
if  (values [j-1]  >  values [j])  { 
swap (values, index, j"l,  j)  ; 

}/*  end  if  */ 

}/*  end  for  */ 

}/*  end  for  */ 

}/*  end  function  bubbleSort ()  */ 


/*  function  quicksort  */ 

void  quicksort (float  values [], int  index [], int 

{ 

int  pindex,k; 

if  (j  <=  i)  {  return;  ) 

.  if  ((j-i)  <  9)  { 

■  bxabbleSort  (values,  index,  i,  j) ; 

^  }  else  { 

pindex  =  findPivot (values, index, i, j) ; 
if  (pindex  !=  0)  { 

k  =  partition (values, index, i, j , pindex) ; 
quicksort (values, index,  i,  k-1) ; 
quicksort (values, index, k, j) ; 

}/*  end  if  */ 

}/*  end  if  */ 

}/*  end  function  quicksort ()  */ 


i,  int 


j) 


int  partition (float  values [], int  index [], int  i,int  j,int  pindex) 

{ 

float  pivot; 
int  l,r; 

pivot  =  values [pindex] ; 

1  =  i;  r  =  j; 
do  { 

swap (values, index, 1,  r)  ; 

while  (values [1]  <  pivot)  {  1++;  } 

while  (values [rj  >=  pivot)  {  r--;  } 

}  while  ^  <=  r) ; 


firstkey  -  values [i]; 

for  (k  *  i+1;  k  <*  j;  ++k)  { 

if  (values [k]  >  firstkey)  {  return (k);  } 
else  {  if  (values [k]  <  firstkey)  {  return (i) 
}/*  end  for  */ 
return (0) ; 

^1*,  end  function  * ! 


}  } 


void  swap (float  values [],int  index [l,int  1/int  r) 

{  V 

int  t  / 
float  v; 

t  “  index[l];  index[l]  =  index[r];  index[r]  «  t; 

V  *  values [1];  values [1]  =  values [r];  values [r]  *  v; 
}/*  end  function  swapO  *! 


/*  FILE;  2d.C 

**  Routines  to  perform  2D  (and  some  3D)  coordinate  conversions.  */ 

♦include  <X11/Xlib.h> 

♦  i^^ude  <X11/Xutil  .h> 
fi^p.ude  <math.h> 

♦include  "global. h" 

♦include  "prototypes .h" 

extern  coordParams  theCoordParams; 


/*  This  function  converts  a  device  independent  (DVI)  coordinate  into 
**  a  device  dependent  (DVD)  one.  Note  that  the  DVD  display  area  is  the 
**  lower  left-hand  corner  of  our  window,  as  the  top  and  right  side  of  the 
**  window  are  reserved  for  drawing  gadgets  into  */ 
dvdCoord  dvi2dvd (dviCoord  theDviCoord) 

{ 

dvdCoord  theDvdCoord; 
theDvdCoord. horizontal  = 

(int) (  theDviCoord. X  * (float) theCoordParams . dvdWidth  ); 

theDvdCoord. vertical  =  theCoordParams .topBarHeight  + 

(int) ((1.0  -  theDviCoord. y) * (float) theCoordParams . dvdHeight) ; 
return (theDvdCoord) ; 

}/*  end  function  dvi2dvd()  */ 


/*  This  function  converts  a  view- rectangle  (VR)  coordinate  into  a  DVI 
Incoordinate.  */ 

®B.Coord  vr2dvi  (vrCoord  theVrCoord) 

{ 

dviCoord  theDviCoord; 

theDviCoord. X  =  (theVrCoord.x-theCoordParams . vrLeft)  / 
(theCoordParams .vrRight-theCoordParams .vrLeft) ; 
theDviCoord. y  »  (theVrCoord.y-theCoordParams . vrBottom)  / 
(theCoordParams . vrTop-theCoordParams . vrBottom) ; 
return (theDviCoord)  ; 

}/*  end  function  vr2dvi  */ 


/*  This  function  converts  an  object-space  (OS)  coordinate  into  a  view- 
**  rectangle  coordinate.  Note  that  either  Mathinit  or  CSInit  must  be 
**  called  first  to  initialize  the  various  transformations.  */ 
vrCoord  os2vr (osCoord  theOsCoord) 

{ 

vrCoord  theVrCoord; 
float  o[4],vr[3]; 
o[l]  =»  theOsCoord.x; 
o[2]  *  theOsCoord.y; 
o[3i  «  theOsCoord. z; 

PSPlot (o, vr) ; 
theVrCoord. X  =  vr[l]; 
theVrCoord. y  *  vr[2]; 
return (theVrCoord) ; 

end  function  vr2dvi  */ 


/*  Convert  rectangular  coordinates  to  spherical.  */ 


void  rect2sphere (float  rect [ ] , float  sphere [ ] ) 


{ 


float  theta;  /*  around  latitude  lines  */ 
float  phi;  /*  down  longitude  lines  *! 
float  rhc;  /*  radius  */ 
float  x,y,z; 


X  =  rect[l];  y  =  rect [2];  z  =  rect [3]; 
theta  =  acos (x/sqrt (x*x+y*y) ) ; 
if  (y  <  0.0)  {  theta  »  -theta;  } 
rho  =  sqrt (x*x+y*y+z*z) ; 
phi  =  acos(z/rho); 

sphere [1]  =  theta;  sphere [2]  *  phi;  sphere [3] 


}/*  end  function  */ 


rho 


/*  Convert  rectangular  coordinates  to  spherical.  */ 
void  sphere2rect (float  sphere [ ] , float  rect [ ] ) 

{ 

float  theta;  /*  around  latitude  lines  */ 
float  phi;  /*  down  longitude  lines  */ 
float  rho;  /*  radius  *7 
float  x,y/z; 

static  float  pi  =  3.1415926; 


theta  =  sphere[l);  phi  =  spherer2];  rho  =  sphere[3] 
if  (phi  <  0.0)  {  phi  *0.01;  } 
if  (phi  >  pi  )  {  phi  «  pi-0.01;  } 

X  =  rho*cos  (theta)  *sin  (phi)  ; 
y  =  rho*sin (theta) *sin (phi) ; 
z  =  rho*cos (phi) ; 

rect[l]  *  x;  rect [2]  *  y;  rect [3]  =  z; 


}/*  end  function  */ 


/*  FILE:  3d.c 

**  Routines  to  perform  basic  3d  ->  2d  coordinate  conversion.  */ 

♦include  <X11/Xlib.h> 

♦  delude  <X11/Xutil.h> 

♦  i^R.ude  <math.h> 

♦include  "global. h" 

♦include  "prototypes .h" 

extern  coordParams  theCoordParams; 


/*  initialize  everything  for  graphics -standard  (z=inward)  plotting  */ 
void  PSInitO 
{ 

float  tempi [4] , temp2 [4] ; 
int  i  ; 

permute (theCoordParams .eye) ;  /*  permute  the  data  if  necessary,  i.e.  if  */ 

permute (theCoordParams . see) ;  /*  we're  in  MATHPLOT  mode,  where  z=upward  */ 

permute  (theCoordParcuns .  light) ; 

initPPO;  /*  initialize  the  data  for  projecting  onto  view-plane  */ 

initTO;  /*  initialize  data  for  converting  to  view-plane  coords  */ 

initRO;  /*  initialize  data  for  rotation  due  to  head  tilt  */ 

unpermute (theCoordParams .eye) ;  /*  un-do  the  permutations  from  above  */ 

unpermute (theCoordParams . see) ; 
unpermute  (theCoordParauns  .  light)  ; 
xanpermute  (theCoordParams  .  c)  ; 

/*  also  un-permute  the  conversion  matrix  A,  used  by  the  T  transformation  */ 
for  (i=l;  i<*  3;  ++i)  { 

templ[i]  *=  theCoordParams  .A  [1]  [i]  ; 

•  temp2[i]  =  theCoordParautis .  A[2]  [i]  / 

}/*  end  for  */ 

unpermute (tempi) ;  unpermute (temp2) ; 
for  (i=l;  i<='3;  ++i)  { 

theCoordParauns  .A[l]  [i]  =templ  [i]  / 
theCoordParams .A [2] [ij =temp2 [i] ; 

}/*  end  for  */ 

}/*  end  function  */ 


/*  initialize  the  perspective  projection  */ 
void  initPPO 
{ 

float  t [4] ; 
int  i ; 

/*  c  =  rho  *  see  +  (1  -  rho)  *  eye  */ 
for  (i  =  1;  i  <=  3;  ++i)  { 

theCoordParams .  c  [i]  =  theCoordParauns .  rho  *  theCoordParams  .  see  [i]  + 
(1.0  -  theCoordParams . rho)  *  theCoordParams . eye [i] ; 

}/*  end  for  */ 


/*  beta  *  dot (c-eye, c-eye) 

**  By  storing  the  value  beta,  we  save  some  computations  later, 
for  (i  =  1;  i  <*  3;  ++i)  { 

t[i]  *  theCoordParauns  .  c  [i] -theCoordParauns  .  eye  [i]  ; 

}/"  end  for  */ 


FtheCoordParams .beta 


dotprd (t , t) ; 


*/ 


}/*  end  function  */ 


/*  initialize  the  array  A  that  is  used  by  doT;  A  converts 
**  from  3D  object  space  to  2D  view  plcuie  coordinates  */ 
dd  initT ( ) 

■float  upward[4]  ,dl  [4]  ,d2  [4]  ,vl[4]  ,v2[4]  ,tl[4]  ,t2[4]  ; 
int  i ; 


/*  find  the  up-direction  emanating  from  see  */ 
for  (i  *s  1;  i  <=  3;  ++i)  { 

upward[i]  =  theCoordParams . see [i] ; 

}/*  end  for  */ 
upward [ 2 ] +=1 . 0 ; 

/*  let  tl  *  c-see,  normalized;  tl  is  perpendicular  to  the  view  plane  */ 
for  (i  =  1;  i  <=  3;  ++i)  { 

tl[i]  *  theCoordParams . c [i] -theCoordParams . see [i] ; 

}/*  end  for 
normalize (tl,tl) ; 

I*  project  the  see-plus-unit-y-vector  onto  the  view  plane  in  order 
**  to  start  finding  the  view  plane  y-axis  */ 
doPP (upward, d2) ; 

/*  let  v2  “  d2-c, normalized;  t2  is  parallel  to  the  view  plane  y-axis  */ 
for  (i  «  1;  i  <=  3;  ++i)  { 

t2[i]  »  d2 [i] -theCoordParams .c [i] ; 

}/*  end  for  */ 
normalize (t2, v2) ; 

/*  find  a  vector  that  is  perpendicular  to  both  tl  and  t2;  this  must 

I*  be  the  view  plane  x-axis  */ 
ross  (tl,t2,dl)  ; 
normalize (dl, vl) ; 

/*  Form  A;  the  first  row  of  A  is  vl  and  the  second  row  is  v2. 

**  note  then  that  A*vl*<l,0>  and  A*v2=<0,l>.  Then  to  convert  from 
**  3D  to  2D  coordinates  will  only  require  A* (v-c) .  */ 
for  (i  ■  1;  i  <»  3;  ++i)  { 

theCoordParams .A [1] [i]  *  vl[i]; 
theCoordParams .A [2] [i]  «  v2[i]; 

}/*  end  for  */ 


}/*  end  function  */ 


/*  initialize  the  rotation  matrix  Rotate  */ 
void  initRO 
{ 

theCoordParams .Rotate [1] [1] 
theCoordParams .Rotate [1] [2] 
theCoordParams .Rotate [2] [1] 
theCoordParams . Rotate [ 2  j [ 2  j 
}/*  end  function  */ 


cos (theCoordParams .tilt) 
sin (theCoordParams .tilt) 
-sin (theCoordParams .tilt) 
cos (theCoordParams .tilt) 


®^compute  the  (left  handed)  cross  product  of  vectors  u  and  v  */ 
vK.d  cross  (float  u[],  float  v[],  float  w[]) 


w[l] 

w[2] 


-u[2]*v[3]+v[2]*u[3]  ; 
u[l]*v[3]-v[l]*u[3]  ; 


w[3]  -  -u[l]*v[2]+v[l]*u[2]  ; 
}/*  end  function  */ 


/*  normalize  a  vector  u  to  get  v  */ 
void  normalize (float  u[], float  v[]) 
{ 

float  normu; 
int  i  ; 

normu  ®  norm{u); 
if*  (normu  !«  0.0)  { 

for  (i  ■  1;  i  <=«  3;  ++i)  { 
v[i]  =  u[i] /normu; 

}/*  end  for  */ 

}/*  end  if  */ 

)/*  end  f\inction  */ 


/*  compute  the  Euclide2Ln  norm  of  v  */ 
float  norm (float  v[]) 

{ 

float  s; 

s  -  sqrt (dotprd (v, v) ) ; 

return (s) ; 

}/*  end  fxanction  */ 


compute  the  dot  product  of  u  and  v  */ 
float  dotprd (float  u[], float  v[]) 

{ 


float  d; 
int  i ; 
d  *  0.0; 

for  (i  »  1;  i  <=  3;  ++i)  { 
d+*  u [ i ]  *  V [ i  ]  ; 

}/*  end  for  */ 
return (d)  ; 

}/*  end  function  */ 


/*  The  routines  above  are  all  system  initializations. 

**  The  routines  below  actually  perform  the  transformations.  */ 


/*  convert  from  3d  object-space  coordinate  system  to  view-plane  coords  */ 
void  PSPlot (float  o[], float  vr[3) 

{ 

float  ov[4],v[3]; 


'*  re-scale  the  points  */ 

^  i  [ 1 ] *«theCoordParams . x_scale ; 
o [2] *»theCoordParams .  y_scale; 
o [ 3 ] *»theCoordParams . z_scale ; 

/*  project  onto  the  view  plane  in  3D  coordinates  */ 
doPP (o, ov) ; 


/*  convert  to  view  plzme  natural  coordinates  centered  on  point 
doT (ov, v) ; 

/*  perform  the  rotation  due  to  theCoordParams . tilt  */ 
doR(v, vr) ; 


end  fxanction*/ 


c 


*/ 


/*  permute  a  vector  from  (x,y,z)  to  (z,x,y)  */ 
void  permute (float  o[]) 

{ 

float  t  [4] ; 

if  (theCoordPareuns  .plotType  ==  MATHPLOT)  { 


t 

[1]  - 

o 

[2] 

t 

[2]  - 

o 

[3] 

t 

[3]  - 

o 

[1] 

o 

[1]  » 

t 

[1] 

o 

[2]  - 

t 

[2] 

o 

[3]  - 

t 

[3] 

}/* 

end 

if 

*/ 

}/*  end  function  */ 


/*  unpermute  a  vector  from  (x,y, 
void  unpermute (float  o [ ] ) 

{ 


}/ 


float  t  [4]  ; 

if  (theCoordParams .plot Type  — 
k  t[2]  -  o[l]; 

^  t[3]  -  0(2]; 
t[ll  -  0(3]; 

0(1]  -  t[l]; 

0(2]  -  t[2]; 

0(3]  -  t[3]  ; 

}/*  end  if  */ 

*  end  function  */ 


z)  to  (z,x,y) 

MATHPLOT)  { 


*/ 


/*  project  from  3d  object-space  onto  the  view  plame  in  object-space 

**  coordinate  system  */ 

void  doPP (float  o[], float  ov[]) 

{ 

float  alpha,tl [4]  ,t2 [4]  ; 
int  i ; 

/*  alpha  »  dot (c-eye, c-eye) /dot (o-eye, c-eye) 

**  V  ■  alpha  *  o  +  (1  -  alpha)  *eye  */ 

for  (i  «  1;  i  <«  3;  ++i)  { 

tl[i]  ■  theCoordParams . c [i] -theCoordParams . eye [i] ; 
t2[i]  *  o  [i] -theCoordParauns  .eye  [i]  ; 

}/*  end  for  */ 

alpha  ■  theCoordParams .beta/dotprd (t2, tl) ; 

^^or  (i  «  1;  i  <=  3;  ++i)  { 

ov[i]  «  alpha*o  [i]  +  (1 . 0-alpha) ’^theCoordParams  .  eye  [i]  ; 

}/*  end  for  *! 


}/*  end  function  *! 


I*  convert  a  point  on  the  view  plane  from  its  object-space 

coordinate  system  into  the  view  plane's  coordinate  system  */ 
lid  doT  (float  ov[],  float  v[])‘ 


{ 


int  i , j ; 

/*  T(ov)  «  A  *  (ov  -  c)  */ 
for  ^  *  1;  i  <*  2;  ++i)  { 
v[i]  =  0.0; 

}/*  end  for  */ 
for  (j  »  1  ;  j  <*  3;  ++j)  { 
for  (i  =  1;  i  <=  2;  ++i)  { 

v[i]+*  theCoordParams  .  A  [ i ] [ j ] 
}/*  end  for  */ 

}/*  end  for  */ 


( ov [ j ] -theCoordParams . c [ j ] )  / 


}/*  end  function  */ 


/*  perform  the  rotation  due  to  head  tilt  */ 
void  doR (float  v[], float  vr[]) 

{ 

vr[l]  ■  theCoordParams .Rotate [1] [1] *v [I] +theCoordParams .Rotate [1] [2]*v[2] 
vr[2]  ■  theCoordParams  .Rotate  [2]  [1]  *v[l] +theCoordPareuns  .Rotate  [2]  [2]*v[2] 
M*  end  function  *! 


/*  FILE:  colorx.c 

**  Set  up  the  application  colors;  be  able  to  specify  colors  by  nvunber  or  by 
**  name,  for  the  first  66  X-Windows  named  colors  */ 

^^X-windows  include  files:  */ 

Hclude  <X11/Xlib.h> 

♦include  <X11/Xutil .h> 

♦include  <stdio.h> 


♦include  "global. h" 

♦include  "prototypes .h" 

extern  coordParams  theCoordParams; 


/*  Global  variables:  */ 
extern  Display  *theDisplay; 
extern  int  theDepth; 

extern  unsigned  long  theBlackPixel; 
extern  \insigned  long  theWhitePixel; 
extern  Colormap  theColormap; 

/*  Set  up  English  text  for  colors.  */ 

♦define  maxPixels  132 

♦define  stdColors  66 

unsigned  long  thePixels [maxPixels] ; 


char 


♦theColorNames [stdColors]  = 


{ "Aqueunarine" , 
"Black", 

"Blue", 

"BlueViolet", 

"Brown", 

"CadetBlue", 

•"Coral", 

"Cornf lowerBlue" , 
"Cyan", 

"DarkGreen" , 
"DarkOliveGreen" , 
"DarkOrchid", 
"DarkSlat eBlue " , 
"Darks lateGrey" , 
"DarkTurquoise" , 
"DimGrey" , 
"Firebrick" , 
"ForestGreen", 
"Gold", 

"Goldenrod" , 

"Grey", 

"Green" , 

"GreenYello" , 
"IndianRed", 

"Khaki", 

"LightBlue", 

"Light Grey", 
"LightSteelBlue", 
"LimeGreen", 
"Magenta", 

"Maroon" , 

"MedixamAquamarine" , 
"MediumBlue" , 
"MedixamForestGreen" , 

•  "MedixamGoldenrod" , 
"MedixamOrchid" , 
"MedixamSeaGreen" , 
"MedixamSlateBlue" , 
"MedixamSpringGreen" , 
"MedixamTurquoise" , 


/* 
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*/ 
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*/ 
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*/ 
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*/ 
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*/ 
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39 
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"MediumVioletRed" 
"MidnightBlue" , 
"Navy", 

"Orange", 

•  "OraingeRed", 
"Orchid", 
"PaleGreen", 
"Pink", 

"Plum", 

"Red", 

"Salmon" , 
"SeaGreen" , 
"Sienna" , 
"SkyBlue", 
"SlateBLue", 

" Spr ingGreen " , 
"SteelBlue" , 
"Tan", 

"Thistle", 
"Turquoise", 
"Violet", 
"VioletRed" , 
"Wheat", 

"White", 

"Yellow", 
"YellowGreen" }  ; 


/*  40  */ 
/*  41  */ 
/*  42  */ 
/*  43  */ 
/*  44  */ 
/*  45  */ 
/*  46  */ 
/*  47  */ 
/*  48  */ 
/*  49  */ 
/*  50  */ 
/*  51  */ 
/*  52  */ 
/*  53  */ 
/*  54  */ 
/*  55  */ 
/*  56  */ 
/*  57  */ 
/*  58  */ 
/*  59  */ 
/*  60  */ 
/*  61  */ 
/*  62  */ 
/*  63  */ 
/*  64  */ 
/*  65  */ 


/*  This  function  sets  the  GC  with  the  foreground  color  named.  */ 
void  setColorWithName  (GC  theGC,char  theN2uae[]) 

^int  i; 
i»0; 

while ( (strcmp (theName,theColorNames [i] ) !=0) && (i<stdColors) )  {  i++;  } 

if  (i  <  stdColors)  {  XSetForeground(theDisplay, theGC, thePixels [i] ) ;  } 
)/*  end  function  setColorWithNeune  ()  */ 


/*  Attempt  to  set  up  a  local  color  taible  with  the  default  Xll  colors.  */ 
void  initDefaultColors () 

{ 

XColor  theRGBColor , theHardwareColor; 
int  theStatus; 
char  theString [80]; 
unsigned  int  i, h, r, g, b, top, bottom; 


if  (theDepth  >1)  { 

/*  use  the  66  standard  colors  */ 
for  (i=*0;  i<stdColors;  i++)  { 

theStatus  *  XLookupColor (theDisplay, theColormap, theColorNames [i] , 
StheRGBColor, fitheHardwareColor) ; 
if  (theStatus  !=  0)  { 

theStatus  =*  XAllocColor  (theDisplay,  theColormap, &theHardwareColor)  ; 
if  (theStatus  !«  0)  { 

thePixels [i]  *  theHardwareColor .pixel ; 

}  else  { 


thePixels [ 
}/*  end  if  * 
*  end  if  */ 
end  for  */ 


i] 

/ 


=  theBlackPixel; 


/*  and  also  create  a  66  color  grey  scale 
for  (i»stdColors;  i<=maxPixels-l;  i++)  { 


*/ 


h  *  i-stdColors; 

bottom  =  16;  top  =  255-16;  /*  range  of  rgb  color  values  */ 

h  *  bottom  +  ( (top) -bottom) *h/ 66;  /*  h  ranges  from  top  to  bottom  */ 

r  »  h; 
g  “  h; 
b  =  h; 

sprint f  (theString,  "#%2x%2x%2x''  ,r,g,b); 

theStatus  =  XParseColor (theDisplay, theColormap, theString, 
StheRGBColor) ; 
if  (theStatus  !=  0)  { 

theStatus  =»  XAllocColor  (theDisplay,  theColormap,  StheRGBColor) 
if  (theStatus  !=  0)  { 

thePixels[i]  =  theRGBCol or .pixel; 

}  else  { 

thePixels[i]  =  theBlackPixel; 

}/*  end  if  */ 

}/*  end  if  */ 

}/*  end  for  */ 
else  { 

for  (i=0;  i<stdColors;  i++)  { 

if  (strcmp ("White", theColorNames [i] )  ==  0)  { 

thePixelsti]  =  theWhitePixel; 


}  else  { 

thePixelsti]  “  theBlackPixel; 
}/*  end  if  */ 

}/*  end  for  */ 

}/*end  if  */ 

}/*  end  function  initDefaultColors  () 


Set  the  graphic  context  (GC)  to  have  a  foreground  color  of  colorNumber  */ 
^Rid  setColor(GC  theGC, int  colorNumber) 

{ 

if  (  (colorNvimber  <  maxPixels)  &&  (colorNumber  >=  0  )  ) 

{  XSetForeground (theDisplay,  theGC, thePixels  [colorNximber] )  ;  } 

}/*  end  function  setColorO  */ 


/*  FILE:  quitx.c 

**  Close  down  X-Windows.  */ 


/*  X-windows  include  files:  */ 
♦include  <X11/Xlib.h> 

♦  i^lude  <X11/Xutil.h> 

♦include  "global. h" 

♦include  "prototypes .h" 

extern  Display  "theDisplay; 


void  quitXO 
{ 

XCloseDisplay (theDisplay) ; 
)/*  end  of  function  quitX()  */ 


/*  FILE:  minmax.c 

**  Routines  for  computing  mins  and  maxs.  */ 

♦include  <X11/Xlib.h> 

#^|lude  <X11/Xutil  .h> 

♦l^lude  <math.h> 

♦include  "global. h" 

♦include  "prototypes .h" 


/*  function  max  of  four  elements  */ 
float  max4 (float  w, float  x, float  y, float  z) 
{ 

float  m; 
m  =  w; 

if  (x  >  m)  {  m  =  x;  } 

if  (y  >  m)  {  m  =  y;  } 

if  (2  >  m)  {  m  =  z;  } 

return  (m)  ; 

}/*  end  function  max()  */ 


/*  function  min  of  four  elements*/ 
float  min4 (float  w, float  x, float  y, float  2) 
{ 

float  m; 
m  *  w; 

(x  <  m)  {  m  =  x;  ) 

A  (y  <  m)  {  m  =  y;  } 

tR  (z  <  m)  {  m  *  2;  } 

return  (m)  / 

}/*  end  function  min()  */ 


/*  function  max  of  three  elements  */ 
float  max3 (float  w, float  x, float  y) 

{ 

float  m; 
m  «  w; 

if  (x  >  m)  {  m  *  x;  } 
if  (y  >  m)  {  m  =  y;  } 
return (m) ; 

}/*  end  function  max()  */ 


/*  function  min  of  three  elements*/ 
float  min3 (float  w, float  x, float  y) 
{ 


float  m; 
m  a*  w; 
if  (x  <  m) 
if  (y  <  m) 

•turn  (m)  ; 


m 

m 


x; 

y; 


end  function  min() 


} 

} 


*/ 


/*  fxmction  max  of  two  elements 
float  max2 (float  w, float  x) 

{ 

float  m; 


{  m  =  x;  } 


W  * 

(x  >  m) 
return (m) ; 

}/*  end  function  max()  */ 


*/ 


/*  function  min  of  two  elements*/ 
float  min2 (float  w, float  x) 

{ 

float  m; 
m  =  w; 

if  (x  <  m)  {  m  =  x;  } 
return (m) / 

}/*  end  function  min()  */ 


/*  FILE:  overhead. c 

**  Rout.ines  to  perform  computations  for  the  overhead-view  gadgets.  */ 


♦include  <X11/Xlib.h2» 
Include  <X11/Xutil  .h> 
f^Klude  <math.h> 
♦iliclude  "global.h" 
♦include  "prototypes .h 


If 


extern  coordParams  theCoordParams; 
extern  gadget  theGadgets [80] ; 
extern  int  drawGadgets; 


/*  function  to  compute  altimeter  coordinates  from  object  space  coordinate  */ 
int  altTop (float  x) 

{ 

int  i  ; 

i  =  theGadgets [ALT] .top  + 

(int) (  (theCoordParams . osTop-x) 

* (float) (theGadgets [ALT] .bottom  -  theGadgets [ALT] .top) 

/ (theCoordParams . osTop-theCoordParams . osBottom)  ) ; 
return ( i ) ; 

}/*  end  function  altTop ()  */ 


/*  function  to  compute  view-screen  left  coordinates  */ 
int  viewLeft (float  x) 

{ 

•  int  i; 

i  =  theGadgets [OVHEAD] .left  + 

(int) (  (x-theCoordParams . osLeft) 

* (float) (theGadgets [OVHEAD] .right  -  theGadgets [OVHEAD] . left) 
/  (theCoordParautis  .  osRight-theCoordParams  .  osLeft )  )  ; 
return ( i ) ; 

}/*  end  function  viewLeft ()  */ 


/*  function  to  compute  view-screen  top  coordinates  */ 
int  viewTop (float  x) 

{ 

int  i  ; 

i  =  theGadgets [OVHEAD] .bottom  - 

(int) (  (theCoordParams . osTop-x) 

* (float) (theGadgets [OVHEAD] .bottom  -  theGadgets [OVHEAD] . top) 
/ (theCoordParams . osTop-theCoordParams . osBottom)  ) ; 
return ( i ) ; 

)/*  end  function  viewTopO  */ 


/*  function  to  compute  from  altimeter  coordinates  */ 
float  fromAltTop (int  i) 

{ 

float  x; 

^x  =  theCoordParamis  .  osTop  - 
^  (float) (i-theGadgets [ALT] . top) 

*  (theCoordParams  .  osTop-theCoordParauns  .  osBottom) 

/ (float) (theGadgets [ALT] .bottom-theGadgets [ALT] .top) ; 
return (x) ; 

]/*  end  function  fromAltTop ()  */ 


f  function  to  compute  from  view-screen  left  coordinates  */ 
oat  fromViewLeft (int  i) 

float  x; 

X  =  theCoordParams . osLeft  - 

(float) (i-theGadgets [OVHEAD] .left) 

*  (theCoordParzutis  .  osRight -theCoordParams .  osLeft) 

./ (float)  (theGadgets [OVHEAD] . left-theGadgets [OVHEAD] .right) 
return (x) ; 

}/*  end  function  fromViewLeft ()  */ 


/*  function  to  compute  from  view-screen  top  coordinates  */ 
float  f romViewTop (int  i) 

{ 

float  x; 

X  =  theCoordParaims  .  osBack  + 

(float) (i-theGadgets [OVHEAD] .top) 

*  (theCoordParauas  .  osFront-theCoordParams  .  osBack) 

/(float) (theGadgets [OVHEAD] .bottom-theGadgets [OVHEAD] .top) 
return (x) ; 

}/*  end  function  fromViewTop ()  */ 


/*  FILE:  draw.c 

**  Routines  to  perform  drawing  f\inctions.  */ 


♦include  <X11/Xlib.h> 

#i^|lude  <X11/Xutil.h> 

♦x^Plude  <stdio.h> 

♦include  <string.h> 

♦include  <math.h> 

♦include  "global. h” 

♦include  "prototypes .h" 

extern  Display  *theDisplay; 

extern  coordParams  theCoordParams; 
extern  gadget  theGadgets [80] ; 


/*  Draw  a  line  from  p  to  q  which  has  been  presented  in  dvd  coordinates.  */ 
void  dvdDrawLine (Window  theWindow,GC  theGC, dvdCoord  dvdp, dvdCoord  dvdq) 

{ 

XDrawLine (theDisplay, theWindow, theGC, dvdp. horizontal, dvdp. vertical, 
dvdq. horizontal, dvdq. vertical) ; 

}/*  end  function  dvdDrawLine ()  */ 


/*  Draw  a  rectangle,  p  to  q  , which  has  been  presented  in  dvd  coordinates.  */ 
void  dvdDrawRectangle (Window  theWindow, GC  theGC, dvdCoord  dvdp, dvdCoord  dvdq) 
{ 

int  height , width; 

4||height  »  abs  (dvdq.  vertical  -dvdp. vert ical )  ; 

^W^idth  =  abs  (dvdq. horizontal-dvdp. horizontal)  ; 

XDrawRect angle (theDisplay, theWindow, theGC, dvdp . horizontal , dvdp . vertical , 
width, height) ; 

)/*  end  function  dvdDrawRectangle ()  */ 


/*  Draw  a  fill  rect,  p  to  q  , which  has  been  presented  in  dvd  coordinates.  */ 
void  dvdFillRectangle (Window  theWindow, GC  theGC, dvdCoord  dvdp, dvdCoord  dvdq) 
{ 

int  height , width; 

height  *»  dvdq. vertical  -dvdp .vertical ; 
width  »  dvdq. horizontal-dvdp. horizontal; 

XFillRectangle (theDisplay, theWindow, theGC, dvdp .horizontal, dvdp .vertical, 
width, height) ; 

}/*  end  function  dvdFillRectangle ()  */ 


/*  Draw  a  gadget,  p  to  q  , which  has  been  presented  in  dvd  coordinates.  */ 
void  dvdDrawGadget (Window  theWindow, GC  theGC, int  whichGadget) 

{ 

int  height, width; 

dvdCoord  dvdp, dvdq; 

char  theString [STRLEN] ; 

^Jbvdp. vertical  =  theGadgets [whichGadget] .top; 

dvdp.  horizontal  *  theGadgets [whichGadget ]. left ; 

dvdq.  vertical  =  theGadgets [whichGadget ] .bottom; 

dvdq. horizontal  =  theGadgets [whichGadget] . right ; 


strcpy (theString, theGadgets [whichGadget] .string) ; 


height  ■*  dvdq. vertical  -  dvdp .vertical; 

width  »  dvdq. horizontal  -  dvdp. horizontal; 

^^setColor (theGC, 13) ;  /*  dark  slate  blue  */ 

if  ( (whichGadget  «=  OVHEAD)  | I  (whichGadget  ALT) )  { 

XDrawRectangle (theDisplay , theWindow, theGC, dvdp . horizontal, dvdp . vertical 
width, height) ; 

}  else  { 

XFillRectangle (theDisplay, theWindow, theGC, dvdp .horizontal, dvdp .vertical 
width, height) ; 

'dvdp . horizontal+=l ; 

dvdp . vert ical+=height ; 

dvdp . vertical-=4; 

setColor (theGC, 63) ;  /*  white  */ 

XDrawString (theDisplay, theWindow, theGC, dvdp . horizontal, 
dvdp. vertical, theString, strlen (theString) ) ; 

}/*  end  if  */ 

}/*  end  function  dvdDrawLine ()  */ 


/*  Draw  a  line  from  p  to  q  which  has  been  presented  in  dvi  coordinates.  */ 
void  dviDrawLine (Window  theWindow, GC  theGC, dviCoord  dvip, dviCoord  dviq) 

{ 

dvdCoord  dvdp, dvdq; 


dvdp  =  dvi2dvd (dvip) ; 
dvdq  =  dvi2dvd (dviq) ; 

ivdDrawLine (theWindow, theGC, dvdp, dvdq) 
end  function  dvdDrawLine ( )  */ 


/*  Draw  a  line  from  p  to  q  which  has  been  presented  in  view-rectangle 
**  coordinates.  */ 

void  vrDrawLine (Window  theWindow, GC  theGC, vrCoord  vrp,vrCoord  vrq) 

{ 

dviCoord  dvip, dviq; 

dvip  =  vr2dvi (vrp) ; 
dviq  =  vr2dvi (vrq) ; 

dviDrawLine (theWindow, theGC, dvip, dviq) ; 

}/*  end  function  vrDrawLine ()  */ 


/*  Draw  a  line  from  p  to  q  which  has  been  presented  in  object-space 
*  *  coordinates .  * / 

void  osDrawLine (Window  theWindow, GC  theGC, osCoord  osp,osCoord  osq) 
vrCoord  vrp, vrq; 


vrp  =  os2vr (osp) ; 
vrq  =  os2vr(osq); 

^rDrawLine (theWindow, theGC, vrp, vrq) 
end  function  osDrawLine {)  */ 


/*  Set  up  the  shadings  needed  for  drawing  shaded  triangles,  below.  */ 
void  initShading 0 
{ 

int  i ; 

^for  (i  -  0;  i<»  NUMSHADES-1;  ++i)  { 

B  theCoordParauns . shadingColor [i]  »  i+NUMSHADES; 

}/*  end  for  */ 

)/*  end  function  initShading ()  */ 


/*  Draw  a  triaingle  presented  in  object-space  coordinates.  */ 
void  osDrawTriangle (Window  theWindow,GC  theGC, triangle  theTriangle, 
int  theColor) 

{ 

osCoord  osp,osq, osr; 

dvdCoord  dvdp , dvdq, dvdr ; 

XPoint  thePoints [4]  ; 


osp. x  =  theTriangle .vlx;  osp.y  =  theTriangle .vly;  osp.z 

osq. x  =  theTriangle .v2x;  osq.y  =  theTriangle .v2y;  osq.z 

osr. x  *  theTriangle .v3x;  osr.y  =  theTriangle .v3y;  osr.z 


theTriangle.vlz; 
theTriangle . v2z ; 
theTriangle .v3z; 


dvdp  =  dvi2dvd (vr2dvi (os2vr (osp) ) ) ; 
dvdq  -  dvi2dvd (vr2dvi (os2vr (osq) ) ) ; 
dvdr  =  dvi2dvd (vr2dvi (os2vr (osr) ) ) ; 


thePoints [0] .X  =  dvdp. horizontal;  thePoints [0] .y 
thePoints [1] .X  =  dvdq. horizontal;  thePoints [1] .y 
thePoints [2] .X  =  dvdr .horizontal;  thePoints [2] . y 
thePoints [3] .X  *  dvdp. horizontal;  thePoints [3] .y 


dvdp .  vertical ; 

dvdq .  vertical ; 

dvdr .  vertical ; 
dvdp .  veirtical  ; 


switch  (theCoordParams  .  solidType)  { 
case  WIREFRAME: 

setColor (theGC, theColor)  ; 

XDrawLines (theDisplay, theWindow, theGC, thePoints, 4, CoordModeOrigin) ; 
brea)c; 

case  HIDDEN: 

setColor (theGC,  63)  ; 

XFillPolygon (theDisplay, theWindow, theGC, thePoints, 4, Convex, 
CoordModeOrigin) ; 
setColor (theGC, theColor)  ; 

XDrawLines  (theDisplay, theWindow, theGC, thePoints,  4, CoordModeOrigin)  ; 
break; 

case  SHADED: 

setColor (theGC, theCoordParams . shadingColor [theColor] ) ; 

XFillPolygon (theDisplay, theWindow, theGC, thePoints , 4 , Convex, 
CoordModeOrigin) ; 

/*  setColor (theGC, 1) ;  black  */ 

XDrawLines (theDisplay , theWindow, theGC, thePoints , 4 , CoordModeOrigin) ; 
break; 

}/*  end  switch  */ 


}/*  end  function  osDrawTriangle ()  */ 


€ 


*  Draw  a  point  p  which  has  been  presented  in  device -dependent 
coordinates.  */ 
bid  dvdDrawPoint (Window  theWindow, GC  theGC, dvdCoord  dvdp) 

{ 

XDrawPoint (theDisplay , theWindow, theGC, dvdp .horizontal, dvdp .vertical) ; 
)/*  end  function  dvdDrawPoint ()  */ 


Draw  a  point  p  which  has  been  presented  in  view-rectangle 
**  coordinates.  */ 

void  vrDrawPoint (Window  theWindow,GC  theGC, vrCoord  vrp) 

{ 

dvdCoord  dvdp; 
dviCoord  dvip; 

dvip  s»  vr2dvi  (vrp)  ; 
dvdp  s*  dvi2dvd(dvip)  ; 

XDrawPoint (theDisplay, theWindow, theGC, dvdp .horizontal, dvdp .vertical) 
)/*  end  function  vrDrawPoint ()  */ 


/*  Draw  a  point  p  which  has  been  presented  in  object-space  coordinates 
void  osDrawPoint (Window  theWindow,GC  theGC, osCoord  osp) 

{ 

vrCoord  vrp; 
vrp  “  os2vr(osp); 

vrDrawPoint (theWindow, theGC, vrp) ; 

}/*  end  function  osDrawPoint ()  */ 


Render  text  with  position  presented  in  dvd  coordinates.  */ 

^Rid  dvdPrint  (Window  theWindow,  GC  theGC,  dvdCoord  dvdp,  char  theStringH) 

{ 

XDrawString (theDisplay, theWindow, theGC, dvdp. horizontal, 
dvdp. vertical, theString, strlen (theString) ) ; 

}/*  end  function  dvdPrint ()  */ 


/*  Render  text  with  position  presented  in  vr  coordinates.  */ 
void  vrPrint (Window  theWindow, GC  theGC, vrCoord  vrp, char  theString[]) 
{ 

dvdCoord  dvdp; 
dviCoord  dvip; 
dvip  »  vr2dvi (vrp) ; 
dvdp  =  dvi2dvd (dvip) ; 

dvdPrint (theWindow, theGC, dvdp, theString) ; 

}/*  end  function  vrPrint()  *! 


/-  Render  text  with  position  presented  in  os  coordinates.  */ 
void  osPrint (Window  theWindow, GC  theGC, osCoord  osp, char  theString []) 
{ 

vrCoord  vrp; 
vrp  »  os2vr(osp); 

^^vrPrint  (theWindow,  theGC,  vrp,  theString)  ; 

^r*  end  function  osPrintO  */ 


/*  The  event  handler.  */ 


/*  X-windows  include  files:  */ 

♦include  <X11/Xlib.h> 
include  <X11/Xutil  .h> 

^Piclude  <Xll/lceysyni.h> 

♦  include  <Xll/lcey3ymdef  ,h> 

♦include  <Xll/cursorfont .h> 

♦  include  <inath.h> 

♦include  "global. h" 

♦include  "prototypes .h" 

/*  Global  X-Windows  variables:  */ 
extern  Display  *theDi3play; 

/*  global  varicLbles  pertaining  to  this  application:  */ 
extern  coordParams  theCoordParaxns; 
extern  gadget  theGadgets [80] ; 

extern  int  drawGadgets; 


extern  int 
extern  int 
extern  int 
extern  int 


nOata; 

highlight; 

minOelta, maxDelta, numOelta; 


extern  int  nHull; 

extern  osCoord  theData [MAXDATA] ; 

extern  triangle  theHull [MAXTRIANGLES] ; 

extern  intTriangle  int Hull [MAXTRIANGLES] ; 

/*  Define  the  set  of  X-Windows  events  we  wish  to  detect  */ 
♦define  EV_MASK  (KeyPressMask  |  ButtonPressMask  |  ExposureMask  \ 
1  StructureNotifyMask) 


/*  This  is  the  main  X-Windows  event  loop.  Based  on  the  events  detected 
**  below  (such  as  mouse  clicks  and  key  presses)  various  computations  are 
**  performed,  and  then  ref reshWindow ()  is  called.  If  the  event  detected 
**  is  a  "quit"  event,  then  control  returns  to  the  main  program,  where 
the  X-Window  is  shut  down  and  the  prograun  terminates.  */ 
int  eventLoop ( ) 

{ 

XEvent  theEvent ; 

XComposeStatus  theComposeStatus ; 

KeySym  theKeySym; 

XWindowAttributes  theAttribs; 

Cursor  theCursor; 

/*  storage  for  incoming  keystrokes  */ 

int  theKeyBufferMaxLen  =*  64;  /*  arbitrary  big  number  */ 
char  thoKeyBuffer [65]  ; 
int  length; 

/*  storage  for  mouse  button  events  */ 
int  mouseX; 
int  mouseY; 
int  whichButton; 

•/*  other  stuff  */ 

float  sphereCoords [ 4 ] ; 
float  tempCoords [4] ; 
int  i , whichGadget ; 

float  x,y,z; 


/*  wait  for  an  event  */ 

XNextEvent (theDisplay , &theEvent) ; 

/*  turn  the  cursor  into  a  clock  */ 

theCursor  »  XCreateFontCursor (theDisplay, XC_watch) ; 

XDef ineCursor (theDisplay, theEvent . xany . window, theCursor) ; 

XFlush (theDisplay)  ; 

/*  decode  the  event  */ 
switch (theEvent . type)  { 

the  window  has  been  exposed  */ 
case  Expose: 

ref reshWindow (theEvent . xany .window) ; 
break; 

/*  the  window  is  mapped  */ 
case  MapNotify: 

ref reshWindow (theEvent . xany . window) ; 
break; 

f*  detect  if  a  mouse  button  is  pressed  down  */ 
case  ButtonPress : 

/*  if  drawGadgets  equals  false,  then  no  button  gadget  could  have 
**  been  clicked  into,  so  don't  bother  decoding  this  event  */ 
if  (drawGadgets  «  False)  {  break;  } 

/*  figure  out  which  button  was  pressed,  and  where  on  the  screen  it 

**  was  pressed  */ 

mouseX  =  theEvent . xkey . x ; 

mouseY  =■  theEvent  .xkey  .y; 

whichButton  =*  theEvent  .xbutt  on.  but  ton; 

/*  figure  out  which  gadget  was  clicked  into,  if  any  */ 
whichGadget  »  -1; 

for  (i  »  QUIT;  i  <»  NUMGADGETS;  ++i)  { 

if  ( (mouseX  >  theGadgets [i] . left)  &&  (mouseX  <  theGadgets [i] . right) 

&&  (mouseY  >  theGadgets [i] .top)  &&  (mouseY  <  theGadgets [i] .bottom) )  { 
whichGadget  *  i; 

}/*  end  if  */ 

}/*  end  for  */ 

/*  The  ALT  and  OVHEAD  gadgets  are  special;  if  the  user  did  not  click 
**  into  one  of  them,  then  he  might  have  clicked  into  one  of  the  other 

**  movement  gadgets.  If  so,  then  we  need  to  convert  the  coordinates 

**  he  wants  to  change  into  spherical  form  so  that  we  can  move  them  as 

**  he  requested,  and  then  convert  them  back  to  rectangular  coordinates. 
**  If  the  user  did_  click  into  the  ALT  or  OVHEAD  gadget,  then  he  is 
**  moving  one  o'?  the  points  directly,  so  we  can  keep  them  in 
**  rectangular  coordinates.  */ 

if  ((whichGadget  !»  ALT)  &&  (whichGadget  !**  OVHEAD))  { 
switch  (whichButton)  { 
case  1 : 

tempCoords  [  1  ]  »  theCoordParauns .  eye  [1]  -  theCoordParams  .  see  [1]  ; 
tempCoords  [2  j  >■  theCoordParams .  eye [2]  -  theCoordParams .  see  [2] ; 
tempCoords [3]  «  theCoordParams .eye [3]  -  theCoordParams.see[3j; 
rect2sphere (tempCoords, sphereCoords) ;  break; 
case  2:  rect2sphere (theCoordParams . see, sphereCoords) ;  break; 
case  3 : 

tempCoords  Cl]  *  theCoordParams .  light  [1]  -  theCoordParauns  .  see  [1]  ; 
tempCoords [2]  *  theCoordParams . light [2]  -  theCoordParams . see [2] ; 
tempCoords  [3]  »  theCoordParams .  light  [3]  -  theCoordParauns .  see  [3]  ; 
rect2 sphere  (tempCoords,  sphereCoords)  ;  breaik; 

)/*  end  switch  */ 

}  else  { 


switch  (whichButton)  { 

case  1:  X  =  theCoordParams .eye [1] ;  y  =  theCoordParams . eye [2] ; 

z  =  theCoordParams .eye [3] ;  break; 
case  2:  x  =  theCoordParams  .  see  [1]  ;  y  =  theCoordParaims  .  see  [2]  ; 

z  =  theCoordParams . see [3] ;  break; 
case  3;  x  =  theCoordParams. light [1] ;  y  =  theCoordParams . light [2]  ; 
z  =  theCoordParaims .  light  [3]  ;  break; 

}/*  end  switch  */ 

}/*  end  if  */ 

I*  now  perform  the  various  computations  which  depend  on  exactly  which 
**  gadget  was  pressed  */ 
switch  (whichGadget)  { 

case  -1:  /*  do  nothing  */  break; 

case  QUIT:  return(O);  break; 

case  WRITEDT:  writeDataO;  break; 

case  CCWISE:  sphereCoords [1] += (1 . 0/36 . 0) ;  break; 
case  CLWISE:  sphereCoords [1] -= (1 . 0/36 . 0) ;  break; 

case  OVMAG:  theCoordParauns  .osLeft*=2 . 0; 

theCoordParams . osBack*=2 . 0 ; 
theCoordParams .03Right*=2 . 0; 
theCoordParams . osFront  *=2 . 0 ; 
theCoordParams .  osTop*=*2 . 0  ; 
theCoordParams . 03Bottom*»2 . 0 ;  break; 
case  OVMIN:  theCoordParams . osLeft*=0 . 5; 

if  (theCoordParams . osLeft  >  theCoordParams .vcLeft)  { 
theCoordParams. o3Left*=*2.0;  break;  } 
theCoordParams . osBack*=0 . 5 ; 
theCoordParams .osRight*=0 .5; 
theCoordParams .osFront *=0 .5; 
theCoordParams . osTop*=0 . 5 ; 
theCoordParams  .o3Bottom*=»0 .5;  break; 
case  OVHEAD :  y  =»  f  romViewLeft  (mouseX) ; 

X  =  fromViewTop (mousey) ;  break; 

case  ALT:  z  =  fromAltTop (mouseY) ;  break; 

case  ALTMAG:  theCoordParams .  osLeft*»»2 . 0 ; 

theCoordParams . osBack**2 . 0 ; 
theCoordParams . osRight*=2 .0; 
theCoordParams . osFront **2 . 0 ; 
theCoordParams .  o3Top*=*2 . 0 ; 
theCoordParams .osBottom*=2 .0;  break; 
case  ALTMIN:  theCoordParams . O3Left*=0 . 5; 

if  (theCoordParams . osLeft  >  theCoordParams .vcLeft)  { 
theCoordParams .03Left*»2 . 0;  break;  } 
theCoordParams . osBack*»0 . 5 ; 
theCoordParams . osRight *“0 . 5 ; 
theCoordParams. osFront *=»0 .5; 
theCoordParams . O3Top**0 . 5 ; 
theCoordParams . o3Bottom*=0 . 5 ;  break; 
case  INWARD:  sphereCoords [3] *=0 . 9;  break; 

case  OUTWARD:  sphereCoords [3] *=1 . 1;  break; 

case  VIEWIN:  theCoordParams . rho+=0 . 05; 

if  (theCoordParams . rho  >  0.95) 

{theCoordParams . rho  ®  0.95;}  break;  ' 

case  VTEWOUT :  theCoordParams . rho-=0 . 05 ; 

if  (theCoordParams . rho  <  0.05) 

{theCoordParams. rho  *  0.05;}  break; 
case  OVER:  sphereCoords [2] -= (1 . 0/36 . 0) ;  break; 

case  UNDER:  sphereCoords [2] += (1 . 0/36 . 0) ;  break; 

case  AXESG:  theCoordParams . solidType  »  AXES;  break; 

case  WIREG:  theCoordParams . solidType  »  WIREFRAME;  break; 

case  HIDEG:  theCoordParams . solidType  «  HIDDEN;  break; 

case  SHADG:  theCoordParams . solidType  «  SHADED;  break; 

case  HIGHLT:  highlight  «  l^highlight;  break; 

case  DOHULL:  chullO;  break; 

case  COARSE:  if  (nuxnDelta  >  4)  { 


break; 


case 

FINE: 

numDelta/^2;  nData  =  nuraDelta; 
minDelta  =  1;  maxDelta  =  nData; 
getData ( ) ;  } 

if  (numDelta  <  MAXDATA)  { 

break; 

case 

MINDM: 

niimDelta*=2;  nData  =  numDelta; 
minDelta  =1;  maxDelta  =  nData; 
getData  0;  } 

minDelta--;  nData  =  numDelta; 

break; 

case 

MINDP : 

if  (minDelta  <  1)  {  minDelta  =1;  } 

getData  0  ; 

minDelta++;  nData  =  numDelta; 

break; 

case 

MAXDM: 

if  (minDelta  >  maxDelta-3)  {  minDelta 
getData  ()  ; 

maxDelta--;  nData  =  numDelta; 

=  maxDelta-3; 
break; 

case 

MAXDP: 

if  (minDelta  >  maxDelta-3)  {  maxDelta 
getData  0  ; 

maxDelta++;  nData  =  numDelta; 

=  minDelta+3; 
break; 

case 

X2: 

if  (maxDelta  >  numDelta)  {  maxDelta  = 
getData  ()  ; 

theCoordParams .  x_scale*=»2; 

numDelta;  } 
break; 

case 

X5 : 

theCoordParzms .eye [1] *-2; 
theCoordParams . see [ 1 ] *=2 ; 
theCoordParams . light [ 1 ] *=2 ; 
theCoordParams .x_scale*=0 .5; 

break; 

case 

Y2: 

theCoordParams . eye [ 1 ] *=0 . 5 ; 
theCoordParams . see [ 1 ] *=0 . 5 ; 
theCoordParams .  light  [  1  ]  *=»0 . 5 ; 
theCoordParams.y_scale*=2; 

break; 

case 

Y5: 

theCoordParams .eye [2] *=2; 
theCoordParams . see [2] *-2; 
theCoordParams .  light  [2]  *=»2; 
theCoordParams .y_scale*=0 .5; 

break; 

case 

Z2 : 

theCoordParams .  eye  [21  *=»0 . 5 ; 
theCoordParams . see [2] *-0 .5; 
theCoordParams . light [2] *=0 .5; 
theCoordParams .  z_scale*=*2; 

break ; 

case 

Z5: 

theCoordParams . eye [ 3 ] *=2 ; 
theCoordParams . see [ 3  j  *-2 ; 
theCoordParams . light [3] *=2; 
theCoordParams . z_scale*=0 . 5 ; 

break; 

'*  end 

switch 

theCoordParams . eye [ 3 ] *=0 . 5 ; 
theCoordParams . see [ 3  j  *=0 . 5 ; 
theCoordParams . light [3] *=0 .5; 

*/ 

break; 

/*  Now  convert  back  to  rectangular  coordintes,  if  necessary.  */ 
if  ( (whichGadget  !■  ALT)  &&  (whichGadget  !-  OVHEAD) )  { 

switch  (whichButton)  { 
case  1 : 

sphere2rect (sphereCoords, tempCoords) ; 

theCoordParanis.eye[l]  »  tempCoords  [1]  +  theCoordParams.see[l]; 
theCoordParams  .eye  (2  j  =  tempCoords  [2]  +  theCoordPar2utis.see[2j; 
theCoordParams .eye [3]  =  tempCoords [3]  +  theCoordParams . see [3] ; 
break;  ' 

case  2:  sphere2rect (sphereCoords^ theCoordParams . see) ;  break; 
case  3: 

sphere2rect ( sphereCoords r tempCoords) ; 

theCoordParams . light [ 1 ]  »  tempCoords [ 1 ]  +  theCoordParams . see [1]; 
theCoordParams . light [2]  »  tempCoords [2]  +  theCoordParams . see [2] ; 
theCoordParams . light [ 3 ]  ^  tempCoords [ 3 ]  +  theCoordParams . see [ 3 ] ; 
break; 

}/*  end  switch  */ 

}  else  { 

switch  (whichButton)  ( 

case  1:  theCoordParams .eye [1]  »  x;  theCoordParams .eye [2]  »  y; 
theCoordParams .eye [3]  *  z;  break; 


case  2:  theCoordParams . see [1]  =  x;  theCoordParams . see [2]  =  y; 

theCoordParams . see [3]  =  z;  break; 
case  3:  theCoordParams . light [1]  =  x;  theCoordParams . light [2 ]  =  y; 
theCoordParams . light [3]  =  z;  break; 

}/*  end  switch  */ 

}/*  end  if  */ 

/*  Re-initialize  the  3d->2D  transformation  and  re-draw  the  window.  */ 
PSInit  0  ; 

ref reshWindow (theEvent . xany .window) ; 
break; 

/*  a  key  on  the  keyboard  has  been  pressed  down  */ 
case  KeyPress: 

/*  This  line  causes  a  compiler  warning,  but  is  legal,  since  theEvent  */ 
/*  is  of  Union  type.  */ 

length  =  XLookupString (StheEvent , theKeyBuf fer , theKeyBuf f erMaxLen, 
StheKeySym, fitheComposeStatus) ; 

/*  check  to  see  if  the  user  pressed  one  of  the  ASCII  keys  */ 
if  ( (theKeySym  >=  '  ')  &&  (theKeySym  <=  &&  (length  ==  1) )  { 

/*  quit  if  the  key  was  a  "q"  */ 

if  ( theKeyBuf fer [0]  ==  'q')  {  return(O);  } 

/*  toggle  the  gadget  drawing  if  the  key  was  a  "g"  */ 
if  (theKeyBuffer [0]  *=  ' g' )  drawGadgets  =  1-drawGadgets; 

/*  rotate  the  image  quickly,  if  the  key  was  a  "a'  */ 
if  (theKeyBuffer [0]  ==  'a')  {  /*  animate!  */ 
for  (i*l;  i<=72;  ++i)  ( 

tempCoords  [1]  =  theCoordParauns  .eye  [1]  -  theCoordParams  .  see  [1] ; 
tempCoords [2]  *  theCoordParams . eye [2]  -  theCoordParams . see [2] ; 
tempCoords  [3]  *  theCoordParauas .  eye  [3  j  -  theCoordParams .  see  [3]  ; 
rect2sphere (tempCoords, sphereCoords) ; 
sphereCoords [1] += (3 . 1415926/36 . 0)  ; 
sphere2rect (sphereCoords, tempCoords) ; 

theCoordParams . eye [1]  =  tempCoords [1]  +  theCoordParams.aee[l]; 
theCoordParams. eye [2]  *  tempCoords [2]  +  theCoordParams.seei2j; 
theCoordParams . eye [3]  =  tempCoords [3]  +  theCoordParams . see [3] ; 
PSInit  0 ; 

ref reshWindow (theEvent . xany . window) ; 

}/*  end  for  */ 

}/*  end  if  */ 

/*  the  user  must  hav  pressed  a  non-ASCII  key  */ 

}  else  { 

/*  as  above,  convert  to  spherical  coordinates  */ 
tempCoords [1]  =  theCoordParams . eye [1]  -  theCoordParams . see [1] ; 
tempCoords [2]  =  theCoordParams .eye [2]  -  theCoordParams . see [2] ; 
tempCoords [3]  =  theCoordParams .eye [3]  -  theCoordParams . see [3] ; 
rect2sphere (tempCoords, sphereCoords) ; 
switch  (theKeySym)  { 

case  XK_Up  :  sphereCoords [2] -= (1 . 0/36 . 0) ;  break; 
case  XK_Down  :  sphereCoords [2] += (1 , 0/36 . 0) ;  break; 
case  XK_Right:  sphereCoords [ij +» (1 . 0/36 . 0) ;  break; 
case  XK_Left  :  sphereCoords  (ij -=•  (1 . 0/36 . 0)  ;  break; 
case  XK_KP__1  :  sphereCoords  [3]  *=»1 . 1;  break; 

case  XK__KP  4  :  sphereCoords  [3]  *=0 . 9;  break; 

}/*  end  switch  */ 

/*  and  then  re-convert  back  to  rectamgular  coordinates  */ 

3phere2rect (sphereCoords, tempCoords) ; 

theCoordParams. eye [1]  *  tempCoords [ 1 ]  +  theCoordParams.see[l]; 
theCoordParams  .eye  [2]  tempCoords  [2]  +  theCoordParams  . see  [2]  ; 
theCoordParams .eye [3]  »  tempCoords [3]  +  theCoordParams . see [3] ; 

PSInit  0 ; 


}/*  end  if  */ 

ref reshWindow (theEvent . xany . window) ; 
break; 


/*  the  window  has  been  sized  or  changed  */ 
case  Conf igureNotify : 

XGetWindowAttributes (theDisplay, theEvent . xany . window, ItheAttribs) 

theCoordParauns  .  windowWidth  =  theAttribs  .  width; 

theCoordParams . windowHeight  =  theAttribs .height ; 

ref reshWindow (theEvent . xany . window) ; 

break; 


}/*  end  switch  */ 

/*  make  the  pointer  be  an  arrow  again,  instead  of  a  clock  */ 
XUndef ineCursor (theDisplay, theEvent . xany . window) ; 

return ( 1 ) ; 

}/*  end  function  eventLoopO  */ 


/*  function  initEvents,  set  the  event  mask  */ 
void  initEvents (Window  theWindow) 

{ 

XSelect Input (theDisplay, theWindow, EV_MASK) ; 
}/*  end  function  initEvents  */ 


I*  PRINT  SOME  STATISTICS  */ 


dvdp . horizontal  =  theGadgets [X5] . right  +  gadgetBorder ; 
dvdp . vertical  =  theGadgets [XS] .bottom  -  4; 

sprintf (theString, "scaling  factor  =  %5 . 2f " , theCoordParams . x_scale)  ; 
dvdPrint (theExposedWindow, theGC,dvdp, theString) ; 


dvdp. horizontal  =  theGadgets [Y5] . right  +  gadgetBorder; 
dvdp .vertical  =  theGadgets [Y5] .bottom  -  4; 

sprintf (theString, "scaling  factor  =  %5 . 2f" , theCoordParams . y_scale)  ; 
dvdPrint (theExposedWindow, theGC, dvdp, theString) ; 


dvdp .horizontal  =  theGadgets [Z5] . right  +  gadgetBorder; 
dvdp. vertical  =  theGadgets [Z5] .bottom  -  4; 

sprintf (theString, "scaling  factor  =  %5 . 2f" , theCoordParams . z_scale)  ; 
dvdPrint (theExposedWindow, theGC, dvdp,  theString) ; 


dvdp .horizontal  =  theGadgets [Z2] . left; 

dvdp .vertical  =  theGadgets [Z2j .bottom  +  3*gadgetBorder; 
sprintf (theString, "light  point  =  (%7 . 2f , %7 . 2f , %7 . 2f ) " , 
theCoordParamis  .  light  [1]  ,  theCoordParauns  .  light  [2]  ,  theCoordParauns  .  light  [3] ) 
dvdPrint (theExposedWindow, theGC, dvdp,  theString) ; 

dvdp . vertical+=l 0 ; 

sprintf (theString, "  eye  point  =  (%7.2f, %7.2f, %7.2f) ", 
theCoordParaims  .eye  [1]  ,  theCoordParams  . eye  [2]  ,  theCoordParauns  .eye  [3] )  ; 
dvdPrint (theExposedWindow, theGC, dvdp, theString) ; 


dvdp . vert ical+=l 0 ; 

sprintf (theString, "  see  point  =  (%7 . 2f , %7 . 2f , %7 . 2f ) " , 
theCoordParams  .  see  [1] ,  theCoordParams  .  see  [2] ,  theCoordParauns  .  see  [3] )  ; 
dvdPrint (theExposedWindow, theGC, dvdp, theString) ; 


if  ( (highlight)  &&  (theDepth  >  1) )  { 
dvdp . vertical+=30; 
setColor (theGC, 49) ;  /*  red  */ 

sprintf (theString, "Red  -  curve  is  exterior  on  far  side  of  hull"); 

dvdPrint (theExposedWindow, theGC, dvdp, theString) ; 

dvdp . vert i cal +=1 0 ; 

setColor (theGC, 1) ;  I*  black  */ 

sprintf (theString, "Yellow  -  curve  is  exterior  on  near  side  of  hull") ; 

dvdPrint  ( theExposedWindow,  theGC r<lvdp,  theString)  ; 

dvdp . vertical+=10; 

setColor (theGC, 4) ;  /*  brown  */ 

sprintf (theString, "Brown  -  curve  is  in  interior  of  hull") ; 

dvdPrint (theExposedWindow, theGC, dvdp, theString) ; 

dvdp . vertical+*10 ; 

setColor (theGC, 1) ;  /*  black  */ 

sprintf (theString, "Green  -  connecting  line,  if  visible"); 
dvdPrint (theExposedWindow, theGC, dvdp, theString) ; 

}/*  end  if  */ 


}/*  end  if (drawGadgets)  */ 

XFlush (theDi splay) ; 

}/*  end  function  refreshWindow ()  */ 


*  function  to  determine  the  shade  of  a  facet  of 
nt  getShade(int  i) 


the  hull  */ 


float  u[4];  /*  a  unit  vector  normal  to  the  face  of  the  hull 

float  vC4i;  /*  a  unit  vector  pointing  towards  light  source 

float  w[4i;  /*  scratch  storage  */ 


*! 

(lamp) 


float  angle;  /*  angle  between  u  and  v  */ 

int  s;  /*  shade  number,  based  on  angle  */ 

static  float  pi  =  3.1415926; 

^  u[l]  =  theHull [i] . normalx; 

P  u[2]  =  theHull [i] .normaly; 
u[3]  =  theHull [i] . normalz; 

w[l]  =  theCoordParams . light [1]  -  theHull [i] .v3x; 
w[2i  =  theCoordParaims  .  light  [2]  -  theHull  [ij  .  v3y; 
w[3]  =  theCoordParams . light [3]  -  theHull [i] .v3z; 
normalize (w, v) ; 

angle  =  acos (f abs (dotprd (u,  v)  )  )  ; 

s=  (NUMSHADES-l)  -  (int) (angle *2 . 0* (float) (NUMSHADES-1) /pi) ; 
return (s) ; 

}/*  end  function  getShadeO  */ 


/*  function  to  sort  the  faces  of  the  object  */ 
void  sortTriangles (int  doDraw[],int  3orted[]) 

{ 

int  i , temp [MAXTRIANGLES ] ; 

float  diffx, dif fy, diffz; 
float  dist [MAXTRIANGLES] ; 

/*  measure  distances  from  eye  points  to  triangles  for  all  triangles  */ 
for  (i  =  1;  i  <=  nHull+3;  ++i)  { 

diffx  =  theHull  [i]  . centerx-theCoordParcuns  .eye  [1]  ; 
diffy  =  theHull [ij . centery-theCoordParams . eye [2] ; 
diffz  =  theHull [ij . centerz-theCoordParams . eye [3 j ; 
dist[i]  ®  diffx*diffx  +  diffy*diffy  +  diffz*diffz; 

^  }/*  end  for  */ 

/*  store  the  sorted  list  in  a  temporary  variable  */ 
for  (i  =  1;  i  <=  nHull+3;  ++i)  {  temp[i]  =  i;  } 

quicksort (dist, temp, 1, nHull+3)  ; 

/*  reverse  the  order  of  the  sort  and  return  */ 

for  (i  =  1;  i  <=  nHull+3;  ++i)  {  3orted[i]  =  temp [nHull+4-i] ;  } 

}/*  end  function  sortTriangles ()  */ 


int  whichDraw (int  doDraw[]) 

{ 

int  i, counter; 

float  numer , signl , sign2 ; 

float  normal [4 ] , dif f [4]  ; 

counter  =  0; 

for  (i=l;  i<=nHull;  ++i)  { 

i 

/*  project  the  center  of  the  hull  onto  the  normal  of  this  triang.le  */ 

nointtal[l]  =  theHull  [i]  .normalx; 

noirmal[2j  ®  theHull  [ij  .normaly  ; 

normal[3j  *  theHull [ij .normalz; 

diff[l]  ®  centerHull.x  -  theHull [i] .v3x; 

diff[2j  «  centerHull.y  -  theHull [ij .v3y; 

^  diff[3j  *»  centerHull.z  -  theHull  [ij  .v3z; 

P  numer  »  dotprd (dif f, normal)  ; 
signl  ■  numer; 

/*  now  project  the  eye  point  onto  the  normal  of  this  triangle  */ 
diff[l]  -  theCoordParams .eye [1]  -  theHull [i] .v3x; 


ciiff[2]  =  theCoordParams  .eye  [2]  -  theHull  [i]  .  v3y; 
diff[3]  =  theCoordParams . eye [3]  -  theHull [i] .v3z; 
numer  =  dotprd (diff, normal) ; 

3ign2  =  numer; 


/*  if  3ign2  and  signl  have  the  same  sign,  then  our  eye  point  is  on  the 
**  same  side  of  the  triangle  as  the  the  hull,  and  therefore  we  do 
**  NOT  see  this  triangle.  */ 
if  ( (3ignl*3ign2)  >0.0)  { 

doDraw [ i ]  =  0 ; 

}  else  ( 

doDraw[i]  =  1; 
counter++; 

}/*  end  if  */ 


}/*  end  for  i  */ 


/*  CONSIDER  THE  AXES  AS  A  SPECIAL  CASE  */ 

/*  the  axes  should  always  be  drawn;  rely  on  the  sorting  to  put  them  in 
**  the  right  place  in  the  rendering  list  so  that  they'll  be  obscured  if 
**  they  are  behind  the  hull.  Note  that  there  are  some  degenerate  cases 
**  where  this  reliance  is  a  mistake.  */ 


for  (i=nHull+l;  i<=nHull+3;  ++i)  { 

doDraw[i]  =»  1; 
counter++; 

}/*  end  for  i  */ 


return (counter) ; 

}/*  end  function  whichDraw()  */ 


/*  figure  out  if  edge  connecting  (pl,p2)  is  on  triangle  T  or  not  */ 
int  isAnEdgeCint  pl,int  p2, intTriangle  T) 

{ 

if  (pi  ==  p2)  {  return (0);  } 

if  ((pi  «  T.pl)  II  (pi  ==  T.p2)  II  (pi  ==  T.p3))  { 

if  ((p2  ==  T.pl)  II  (p2  ==  T.p2)  11  (p2  ==  T.p3))  { 

return (1) ; 

}/*  end  if  */ 

}/*  end  if  */ 
return  (0)  ; 

}/*  end  function  isAnEdgeO  */ 


/*  FILE:  main.c 

**  This  file  contains  the  main  program  for  the  convex  hull  generator.  It  also 
**  contains  the  refreshWindow ()  functions  which  draws  the  hull  and  gadgets.  */ 


i^X-windows  include  files 
^Kclude  <X11/Xlib.h> 
^include  <X11/Xutil .h> 


/*  include  files  for  your  application:  */ 

^include  <stdio.h> 
i include  <string.h> 
rinclude  <math.h> 

■include  "global. h"  /*  contains  structure  definitions  and  fdefine's  */ 

^include  "prototypes . h"  /*  contains  C  prototypes  */ 


*  X-windows  global  variables  */ 


display 

* theDi splay ; 

/* 

.nt 

theScreen; 

/* 

.nt 

theDepth; 

/* 

insigned 

long  theBlackPixel; 

!* 

insigned 

long  theWhitePixel; 

/* 

3olormap 

theColormap; 

!* 

theGC; 

/* 

r\Font  Struct 

*fontStruct ; 

/* 

a  pointer  to  the  display  structure  */ 
which  screen  within  the  display  */ 
depth  of  screen  in  bitplanes  */ 
system  black  color,  xet  in  colorx.c  */ 
system  white  color,  set  in  colorx.c  */ 
color  map,  set  in  colorx.c  */ 
graphics  context,  set  in  windowx.c  */ 
font  structure,  set  in  textx.c  */ 


global  variables  pertaining  to  this  application:  */ 
osCoord  theData [MAXDATA+1] ;  /*  the  (x,y,z)  triples  of  points  */ 

int  nData;  /*  the  number  of  such  triples  to  be  used  */ 

rriangle  theHull [MAXTRIANGLES+1] / /*  the  triangles  making  up  the  hull  */ 
intTriangle  intHull [MAXTRIANGLES+l] / /*  data  points  on  the  curve  mut  the  hull  */ 
int  nHull;  I*  the  number  of  triangles  computed  */ 

coordParams  theCoordParams;  /*  parameters  related  to  image  rendering  */ 

^kget  theGadgets [80] ;  /*  gadget  data  */ 

drawGadgets;  /*  whether  or  not  gadgets  should  be  drawn  */ 

int  highlight;  /*  whether  or  not  curve  should  be  highlit  */ 

osCoord  centerHull;  /*  a  point  in  the  center  of  convex  hull  */ 

int  minDelta,maxDelta, numDelta;  /*  see  file  getdata.c  for  explanation*/ 


void  main  0 

{ 

/*  declarations  pertaining  to  X-Windows :  */ 

Window  theWindow; 

int  windowX, windowY, popup; 

int  windowWidth, windowHeight; 

/*  declarations  pertaining  to  this  application:  */ 

/*  (none)  */ 

/*  initializations  pertaining  to  X-Windows:  */ 

windowX  *  0;  /*  place  the  window  in  the  upper  left  hand  corner  */ 

windowY  *0; 

windowWidth  »  -1;  /*  -1  would  meaui  make  the  window  as  big  as  possible  */ 

windowHeight  =  -1; 

popup  «  0;  /*  am  X  parameter,  see  usage  below  */ 


/*  initializations  pertaining  to  your  application:  */ 

nData  *8;  /*  use  8  data  points  for  curve  initially  */ 

«inDelta  “1;  /*  of  those  8,  use  numbers  1  to  8  completely  */ 

axDelta  «  nOata; 
numDelta  «  maucDelta-minDelta+1; 


getDataO;  /*  read  in  the  input  data  file  (this  should  be  fixed)  */ 
setEyeO;  /*  getData  amd  setEye  are,  unfortunately,  interdependent, 
getDataO;  /*  read  in  the  input  data  file  a  second  time  */ 


so  */ 


=  windowWidth; 

=  windowHeight; 

=  gadgetBorder*2+gadgetTall/ 

=  gadgetBorder*7+gadgetWide*4+gadgetTall; 


theCoordParams . windowWidth 
theCoordParams .windowHeight 
theCoordParams . topBarHeight 
theCoordParams . rightBarWidth 
heCoordParams . x^scale  =  1.0; 
heCoordParams . y_scale  =  1.0; 
theCoordParams . z  scale  =  1.0; 
theCoordParauns .  rEo  =  0.5; 

theCoordParauns .  tilt  =  0.0; 

theCoordParams .plotType  =  MATHPLOT; 
theCoordParauns  .  sol idType  =  AXES; 
drawGadgets  =  1; 
highlight  =  0; 

PSInit  0  ; 


/*  z=up,  y=right,  x=towards  viewer  */ 
/*  just  draw  curve  &  axes  */ 

/*  do  draw  the  gadgets  */ 

/*  don't  highlight  (color)  curve  */ 

/*  intialize  3D->2D  projection  */ 


/*  open  up  an  X -Window:  */ 

initXO;  /*  set  up  the  connection  to  the  X-Server  */ 
initDefaultColors 0 ;  /*  set  up  X-windows  colors  */ 
initShading () ;  /*  initialize  hull  shading  array  */ 
theWindow  =  openWindow(windowX,windowY, windowWidth, windowHeight, popUp,&theGC)  , 
fontStruct  =  initFont (theGC, "6x10”) ;  /*  load  in  a  font  */ 
initEvents (theWindow) ;  /*  set  up  window  to  receive  events  */ 


ref reshWindow (theWindow) ; 
XFlush (theDisplay)  ; 


/*  "refresh"  window  for  the  first  time  */ 
/*  flush  this  refresh  to  the  display  */ 


/*  check  for  events;  this  is  the  heart  of  the  prograun;  most  of  the  code 
**  would  go  here,  or  in  the  eventLoopO  itself,  or  in  the  ref  reshWindow  () 

**  function  below;  */ 

while  (eventLoop  0  )  ;  /*  hauidle  events  */ 


/*  close  everything  down:  */ 
^UpestroyWindow (theDisplay, theWindow) 
^^FreeFont (theDisplay, fontStruct) ; 
XFlush (theDisplay) ; 
quitXO  ; 

}/*  end  main  prograua  */ 


/*  free  the  window  resources  */ 
/*  free  the  font  resources  */ 
/*  final  flush  to  display  */ 
/*  exit  from  X-Windows  */ 


/*  Function  ref reshWindow  is  probably  the  work-horse  of  the  application. 
**  Based  on  events  obtained  from  eventLoopO,  you  would  perform  various 
**  computations  auid  then  update  the  screen.  Most  of  that  could  probaUbly 
**  happen  in  this  routine.  */ 
void  ref reshWindow (Window  theExposedWindow) 

{ 


int  i ,  j  ; 

int  nDraw;  /* 

int  doDraw[MAXTRIANGLES] ;  /* 

int  sorted [MAXTRIANGLES ] ;  /* 

int  localShade [MAXTRIANGLES ] ; 

int  colorBarWidth; 

char  theString [STRLEN] ; 

dvdCoord  dvdp,dvdq; 
osCoord  osp,osq; 


how  many  triangle  survive  the  culling  */ 
which  triangles  survived  the  culling  */ 
sort  based  on  distance  to  eye  point  *l 
/*  what  color  to  shade  each  triauigle  */ 
/*  how  wide  the  color  bar  should  be  -  */ 

/*  generic  string  */ 

/*  generic  DVD  coordinates  */ 

/*  generic  OS  coordinates  */ 


*  some  computations  that  depend  on  how  our  window  opened; 

*  how  wide  and  high  the  convex  hull  display  area  is:  */ 


/ 

* 

theCoordParams . dvdWidth 

theCoordParams .  windowWidth  -  theCoordParams .  rightBarWidth*drawGadget s ; 
theCoordParams .dvdHeight  « 

theCoordParauns .  windowHeight  -  theCoordParauns .  topBarHeight *drawGadgets ; 
colorBarWidth  -  (theCoordParams •dvdWidth-2*gadgetWide-3*gadgetBorder) /66; 


/*  clear  the  entire  window  */ 

XClearWindow (theDiaplay , theExpoaedWindow) ; 

/*  DRAW  THE  OBJECT  */ 

awitch  (theCoordParauna .  aolidType)  { 

caae  AXES:  /*  draw  juat  the  curve  and  the  axea  */ 

/* - draw  the  axea - */ 

aetColor (theGC, 5) ;  /*  grey  ia  the  color  of  the  axea  */ 

oap. x  =  0.0  ;  oap.y  =  0.0  ;  oap.z  =  0.0; 
oaPrint (theExpoaedWindow, theGC, oap, "o”) ; 

oaq. x  =  0 . 5*theCoordParauiia .  vcFront;  oaq.y  =  0.0  ;  oaq.z  «  0.0; 
oaDrawLine (theExpoaedWindow, theGC, oap, oaq) ; 

oaPrint (theExpoaedWindow, theGC, oaq, "x” ) ; 

oaq.x  =  0.0  ;  oaq.y  =  0 . 5*theCoordParama . vcRight ;  oaq.z  =  0.0; 
oaDrawLine (theExpoaedWindow, theGC, oap, oaq) ; 
oaPrint (theExpoaedWindow, theGC, oaq,  ”y”) ; 

oaq.x  =  0.0  ;  oaq.y  =  0.0  ;  oaq.z  =  0 . 5*theCoordParauna .  vcTop; 
oaDrawLine (theExpoaedWindow, theGC,  oap, oaq) ; 
oaPrint (theExpoaedWindow, theGC, oaq,  "z”) ; 

/*  -  draw  the  curve  -  */ 

aetColor (theGC, 1) ;  /*  black  ia  the  color  of  the  curve  */ 

for  (i=l;  i  <=»  nData-1;  ++i)  { 

oaDrawLine (theExpoaedWindow, theGC, theData [ i ] , theDat a [ i+1 ] ) ; 

}/*  end  for  */ 
break; 

caae  WIREFRAME:  /*  draw  the  wireframe  of  the  hull  */ 

/★ - draw  the  axea - */ 

aetColor (theGC, 5) ;  /*  grey  */ 

oap. x  =  0.0  ;  oap.y  =  0.0  ;  oap.z  =  0.0; 
oaPrint (theExpoaedWindow, theGC, oap, "o") ; 

oaq. x  =  0 . 5*theCoordParam3 .  vcFront;  oaq.y  0.0  ;  oaq.z  «  0.0; 
oaDrawLine (theExpoaedWindow, theGC, oap, oaq) ; 

oaPrint (theExpoaedWindow, theGC, oaq, ”x") ; 

oaq.x  =•  0.0  ;  oaq.y  =  0 . 5*theCoordParauna  .vcRight;  oaq.z  =  0.0; 
oaDrawLine (theExpoaedWindow, theGC,  oap, oaq) ; 
oaPrint (theExpoaedWindow, theGC, oaq,  "y”) ; 

oaq.x  =  0.0  ;  oaq.y  =0.0  ;  oaq.z  =  0 . 5*theCoordParama . vcTop; 
oaDrawLine (theExpoaedWindow, theGC, oap, oaq) ; 
oaPrint (theExpoaedWindow, theGC, oaq,  ”z") ; 

/* - draw  the  hull - */ 

for  (i  =  1;  i  <=  nHull;  ++i)  { 

oaDrawTriangle (theExpoaedWindow, theGC, theHull [i] ,1) ; 

}/*  end  for  */ 
break; 

caae  HIDDEN:  /*  draw  the  hull  with  hidden  aurface  elimination  */ 

/*  -  draw  the  axea  labela  -  */ 

aetColor (theGC, 5) ;  /*  grey  */ 

oap. x  =  0.0  ;  oap.y  =0.0  ;  oap.z  =  0.0; 
oaPrint (theExpoaedWindow, theGC, oap,  "o") ; 

oaq. x  =  0 . 5*theCoordParauna  .vcFront;  oaq.y  =  0.0  ;  oaq.z  =  0.0; 
oaPrint (theExpoaedWindow, theGC, oaq, ”x”) ; 

oaq.x  ■  0.0  ;  oaq.y  =  0 . 5*theCoordParama .vcRight;  oaq.z  =  0.0; 
oaPrint (theExpoaedWindow, theGC, oaq,  "y") ; 

oaq.x  ■  0.0  ;  oaq.y  =  0.0  ;  oaq.z  =  0 . 5*theCoordParauaa  .vcTop; 
oaPrint (theExpoaedWindow, theGC, oaq,  "z") ; 

/* - draw  the  hull,  auid  axea  aa  trianglea - */ 

/*  figure  out  which  of  theae  trianglea  to  draw,  and  aet  their  color  to 
**  black,  30  that  they  will  have  black  outlinea  with  white  interior  */ 
nDraw  «  whichDraw (doDraw)  ; 
for  (i  ■  1;  i  <«  nHull;  ++i)  { 

localShade [i]  =1;  /*  black  */ 

>/*  end  for  */ 

for  (i  ■  nHull+1;  i  <■  nHull+3;  ++i)  {  /*  theae  triauiglea  are  the  axea 
localShade [i]  =  5;  /*  grey  *! 


}/*  end  for  */ 


/*  sort  the  triangles  based  on  distance  to  the  eye  point  */ 
sortTriangles (doDraw, sorted) ; 

/*  now  draw  the  triangles  */ 
for  (i  =  1/  i  <=  nHull+3;  ++i)  { 

if  (doDraw [sorted [i] ] )  { 

osDrawTriangle (theExposedWindow, theGC, theHull [sorted [i] ] , 
localShade [sorted [i] ] ) ; 

}/*  end  if  */ 

}/*  end  for  */ 
break; 

case  SHADED:  /*  draw  the  hull  with  shaded  facets  */ 

/* - draw  the  axes  labels - */ 

setColor (theGC, 5) ;  /*  grey  */ 

osp. x  =  0.0  ;  osp.y  =  0.0  ;  osp.z  =  0.0; 
osPrint (theExposedWindow, theGC, osp, "o”) ; 

osq. x  =  0 . 5*theCoordParam3 . vcFront;  osq.y  =  0.0  ;  osq.z  =  0.0; 
osPrint (theExposedWindow, theGC, osq,  "x”) ; 

osq.x  =  0.0  ;  osq.y  =  0 . 5*theCoordParauiis .  vcRight;  osq.z  =  0.0; 
osPrint (theExposedWindow, theGC, osq, ”y”) ; 

osq.x  =  0.0  ;  osq.y  =  0.0  ;  osq.z  =  0 . 5*theCoordParauns .  vcTop; 
osPrint (theExposedWindow, theGC, osq, "z”) ; 

/*  -  draw  the  hull,  and  axes  as  triangles  -  */ 

/*  figure  out  which  of  these  triangles  to  draw,  and  set  their  color  */ 
nDraw  =  whichDraw (doDraw) ; 
for  (i  =  1;  i  <=  nHull;  ++i)  { 

if  (doDraw[i])  {  localShade [i]  =  getShade(i);  } 

}/*  end  for  */ 

for  (i  =  nHull+1;  i  <*=  nHull+3;  ++i)  {  /*  these  triangles  are  the  axes  */ 
localShade [i]  =»  1;  /*  1  means  black  in  my  private  shading  system  */ 

}/*  end  for  */ 

/*  sort  the  triauigles  based  on  distance  to  the  eye  point  */ 
sortTriangles (doDraw, sorted) ; 

/*  now  draw  the  triauigles  */ 
for  (i  =  1;  i  <=  nHull+3;  ++i)  { 
if  (doDraw [sorted [i]  ] )  { 

osDrawTriauigle  (theExposedWindow,  theGC,  theHull  [ sorted [i]  ] , 
localShade [ sorted [i] ] ) ; 

}/*  end  if  */ 

}/*  end  for  */ 
break; 

}/*  end  switch  */ 


if  (highlight)  { 

/■k - draw  the  curve  in  brown - */ 

if  (theDepth  ■■  1)  {  setColor (theGC, 63) ;  }  /*  white  */ 
else  {  setColor (theGC, 4) ;  }  /*  brown  */ 
for  (i*l;  i  <**  nData-1;  ++i)  { 

osDrawLine (theExposedWindow, theGC, theData[i] , theData [i+1] ) ; 

}/*  end  for  */ 

/*  -  draw  the  invisible  but  exterior  edges  in  red  -  */ 

if  (theDepth  ««  1)  {  setColor (theGC, 63) ;  )  /*  white  */ 
else  {  setColor (theGC, 49) ;  }  /*  red  */ 
for  (i="l;  i  <“nData-l;  ++i)  { 
for  (j*l;  j  <-  nHull;  ++j)  { 

if  (isAnEdge  (i,  i-fl,  intHull  [  j] } )  { 

osDrawLine (theExposedWindow, theGC, theData [i] , theData [i+1] ) ; 


break; 

}/*  end  if  */ 

}/*  end  for  j*/ 

}/*  end  for  i*/ 

/*  -  draw  the  exposed  curve  in  yellow  (white  on  a  b&w  monitor)  -  * 

if  (theDepth  ==  1)  {  setColor (theGC, 63) ;  }  /*  white  */ 
else  {  setColor (theGC, 64) ;  }  /*  yellow  */ 
nDraw  =  whichDraw (doDraw) ; 
for  (i=l;  i  <=nData-l;  ++i)  { 

for  (j=l/  j  <=  nHull;  ++j)  { 

if  (doDraw[j])  {  /*  this  facet  is  being  drawn  */ 
if  (isAnEdge (i, i+1, intHull [ j ] ) )  { 

osDrawLine (theExposedWindow, theGC, theData [i]  ,  theData [i+1]  )  ; 
break; 

}/*  end  if  */ 

}/*  end  if  */ 

}/*  end  for  j*/ 

}/*  end  for  i*/ 

/*  draw  the  line  connecting  the  two  endpoints  of  the  curve  in  green, 

**  assviming  that  it  can  be  seen  and  is  not  obscured  by  the  hull  */ 
if  (theDepth  ==  1)  {  setColor (theGC, 63) ;  }  /*  white  */ 
else  {  setColor (theGC, 21) ;  }  /*  green  */ 
for  (j*l;  j  <=  nHull;  ++j)  { 

if  (doDraw[j])  { 

if  (isAnEdge (1, nDat a, intHull [j] ) )  { 

osDrawLine (theExposedWindow, theGC, theData [1] , theData [nData] ) ; 
break; 

}/*  end  if  */ 

}/*  end  if  */ 

}/*  end  for  j*/ 

>/*  end  if  */ 


if  (drawGadgets)  { 

/*  clear  the  top  and  side  bars  */ 

XClearArea (theDisplay, theExposedWindow, 0,0, 0 , theCoordParams . topBarHeight 
False) ; 

XClearArea (theDisplay, theExposedWindow, theCoordParams . dvdWidth, 
theCoordParams .topBarHeight, 0, 0, False) ; 

/*  draw  the  borders  of  the  top  and  right -bar  gadget  areas:  */ 
setColor (theGC, 1) ; 
dvdp. horizontal  »  0; 

dvdp .  vertical  -  theCoordParams . topBarHeight ; 

dvdq.  horizontal  «  theCoordParams .dvdWidth; 
dvdq. vertical  =  theCoordParams .topBarHeight ; 
dvdDrawLine (theExposedWindow, theGC, dvdp, dvdq) ; 
dvdp  .horizontal  *»  theCoordParams  .dvdWidth; 

dvdp.  vertical  »  theCoordParauns.topBarHeight; 

dvdq.  horizontal  »  theCoordParams .dvdWidth; 
dvdq. vertical  »  theCoordParams .windowHeight; 
dvdDrawLine (theExposedWindow, theGC, dvdp, dvdq) ; 


/*  draw  the  gadgets  themselves:  */ 
gadgetDataO  ; 

for  (i  -  QUIT;  i  <»  NUMGADGETS;  ++i)  { 

dvdDrawGadget (theExposedWindow, theGC, i) ; 
}/*  end  for  */ 

/*  draw  the  color  bars:  */ 
if  (theDepth  >1)  { 

/*  _ —  gg  named  colors  -  */ 


lorizontal  =  theCoordParauna  .dvdWidth-colorBarWidth; 
lorizontal  =  dvdp .horizontal+colorBarWidth; 

'■ertical  *  gadgetBorder; 

'•ertical  =  gadgetBorder+gadgetTall/2; 

i  <=  65;  ++i)  { 

:o]J|KtheGC,  1}  ; 

liRectangle (theExposedWindow, theGC,  dvdp, dvdq) ; 

3olor  (theGC,  1)  ; 

ivdDrawRec tangle (theExposedWindow, theGC, dvdp, dvdq) ;  */ 
> . horizontal-=colorBarWidth; 
r. horizontal-*colorBarWidth; 
id  for  */ 

lorizontal  =  theCoordParams . dvdWidth-colorBarWidth; 
lorizontal  =  dvdp.horizontal+colorBarWidth; 
ertical  =  gadgetBorder+l+gadgetTall/2; 

’■^rtical  =  gadgetBorder+gadgetTall; 

5  5  shades  of  grey - */ 

66;  i  <=  131;  ++i)  { 

.  or (theGC, i) ; 

■IRectangle (theExposedWindow, theGC, dvdp, dvdq) ; 
or (theGC, 1) ; 

'*  DrawRectangle  (theExposedWindow,  theGC,  dvdp,  dvdq)  ;  */ 
.orizontal-=colorBarWidth; 

..  orizontal-=GolorBarWidth; 
for  */ 

:  */ 


_-ecial  gadget  items:  */ 


T:-3  view-plane  location  DESCRIPTION:  */ 
oheGC,13);  /*  dark  slate  grey  */ 
orAal  -  theGadgetsCVIEWIN]  .right ; 
tiWi  »  theGadgetsCVIEWIN]  .top  +  7; 
izontal  «  theGadgets [VIEWOUT] . left; 
tical  -  dvdp. vertical; 
line (theExposedWindow, theGC, dvdp, dvdq) ; 
izontalt- 

1 . 0-theCoordParams . rho) * (float)  (dvdq. horizontal-dvdp. horizontal) )  ; 
•tical-*5; 


izontal  *  dvdp. horizontal; 
•tical+*5; 


line (theExposedWindow, theGC, dvdp, dvdq) ; 
■izontal—3; 

•tical+»8; 

.  (theExposedWindow, theGC, dvdq, "v" )  ; 


0)  ; 
0)  ; 


THE  OVERHEAD  VIEW  DESCRIPTION  */ 

•rigin:  */ 

(theGC, 1);  /*  black  */ 

•izontal  ■  (theGadgets [OVHEAD] . left  +  theGadgets [OVHEAD] . right) /2; 
•tical  ■  (theGadgets [OVHEAD] .top  +  theGadgets [OVHEAD] .bottom) /2; 
oint (theExposedWindow, theGC, dvdp) ; 

ye  point:  */ 

(theGC, 4),  /*  brown  */ 

izontal  *  viewLeft (theCoordParams . eye [2] ) ; 
tiical  ■  viewTop  (theCoordParams .  eye  [1]); 

(t^ExposedWindow,  theGC,  dvdp,  "e”)  ; 
oi^PtheExposedWindow,  theGC,  dvdp)  ; 

ee  point:  */ 

(theGC, 3);  /*  BlueViolet  */ 

izontal  «  viewLeft (theCoordParams . see [2] ) ; 


dvdp . vertical+=4 ; 

dvdPrint (theExposedWindow, theGC, dvdp, "s”) ; 

/*  the  light -point  bar:  */ 
setColor (theGC, 18) ;  /*  Gold  */ 

dvdp .  horizontal  =  theGadgeta [ALT] . right-6; 

dvdp  .  vertical  =  altTop  (theCoordParains  .  light  [  3  ] )  ; 

dvdq .  horizontal  =  theGadgets [ALT] . right ; 
dvdq. vertical  =  dvdp . vertical, • 
dvdDrawLine (theExposedWindow, theGC, dvdp, dvdq) ; 
dvdp . horizontal+=8 ; 

dvdp . vertical+=4 ; 

dvdPrint (theExposedWindow, theGC, dvdp, ”1") ; 

/*  the  top  view-cube  bar:  */ 
setColor (theGC, 5) ;  /*  cadet  blue  */ 

dvdp . horizontal  *  theGadgets [ALT] . left ; 

dvdp  .vertical  =  altTop  (theCoordParauns  .  vcTop)  ; 

dvdq.  horizontal  =  dvdp .horizontal+1; 
dvdq. vertical  =  dvdp .vertical ; 
dvdDrawLine (theExposedWindow, theGC, dvdp, dvdq) ; 

/*  the  bottom  view-cube  bar:  */ 

dvdp. horizontal  =  theGadgets [ALT] . left; 

dvdp . vertical  =  altTop (theCoordParams .vcBottom) ; 

dvdq.  horizontal  =  dvdp. horizontal+1, • 
dvdq. vertical  =  dvdp . vertical; 
dvdDrawLine (theExposedWindow, theGC, dvdp, dvdq) ; 

/*  the  view-ctibe  tob/bottom  connection  bar:  */ 
dvdp .horizontal  =  theGadgets [ALT] . left +2; 

dvdp.  vertical  *  altTop  (theCoordParauns  .vcTop)  ; 

dvdq.  horizontal  =  theGadgets [ALT] . left +2; 

dvdq.  vertical  =  altTop  (theCoordParauns  .vcBottom)  ; 

dvdDrawLine (theExposedWindow, theGC, dvdp, dvdq) ; 

/*  the  center  bar:  */ 

setColor (theGC, 1) ;  /*  Black  */ 

dvdp. horizontal  =  theGadgets [ALT] . left +8 ; 

dvdp.  vertical  =  (theGadgets [ALT] .top  +  theGadgets [ALT] .bottom) /2; 

dvdq.  horizontal  =*  theGadgets  [ALT]  . right-8 ; 

dvdq. vertical  =  dvdp . vertical; 

dvdDrawLine (theExposedWindow, theGC, dvdp, dvdq) ; 

t*  DRAW  THE  NUMBER  OF  DATA  AND  HULL  POINTS  */ 

dvdp .horizontal  =  theGadgets [COARSE] . right  +  gadgetBorder; 
dvdp. vertical  *  theGadgets [COARSE] .top  +  6; 

sprintf (theString, "%3d  points  on  curve" , nData) ; 
dvdPrint (theExposedWindow, theGC, dvdp, theString) ; 

dvdp  .vertical  =■  theGadgets  [COARSE]  .bottom  +  1; 
sprintf (theString, "%3d  facets  on  hull  ",nHull); 
dvdPrint (theExposedWindow, theGC, dvdp, theString) ; 

/*  DRAW  THE  LOWEST  AND  HIGHEST  VALUES  BEING  USED  */ 

dvdp. horizontal  -  theGadgets [MINDM] . right  +  gadgetBorder; 
dvdp. vertical  »  theGadgets [MINDM] .bottom  -  4; 
sprintf (theString, "  Using  %d  >■  1. ",minDelta) ; 
dvdPrint (theExposedWindow, theGC, dvdp, theString) ; 

dvdp. vertical  »  theGadgets [MAXDM] .bottom  -  4; 
sprintf (theString, "  Using  %d  <•  %d. ",maxDelta,numDelta) ; 
dvdPrint (theExposedWindow, theGC, dvdp, theString) ; 


/*  FILE:  gadgetdata . c 

**  Routines  to  initialize  gadget  data.  */ 


♦include  <X11/Xlib.h> 
Akiclude  <X11/Xutil  .h> 
Wiclude  "global. h" 
♦include  "prototypes .h 


tl 


extern  coordParams  theCoordParams; 
extern  gadget  theGadgets [80] ; 
extern  int  drawGadgets; 


/*  initialize  gadget  data:  where  the  gadget  should  be  drawn  and  what 
**  string  it  should  be  labeled  with  */ 
void  gadgetDataO 
{ 

theGadgets [QUIT] .top  =  gadgetBorder; 

theGadgets [QUIT] .bottom  *  theGadgets [QUIT] .top  +  gadgetTall; 

theGadgets [QUIT] . left  =  gadgetBorder; 

theGadgets [QUIT] . right  =  theGadgets [QUIT] . left  +gadgetWide; 

strcpy (theGadgets [QUIT] . string, "Quit") ; 


theGadgets [WRITEDT] .top  =  theGadgets [QUIT] .top; 
theGadgets [WRITEDT] .bottom  =  theGadgets[QUIT].bottom; 
theGadgets [WRITEDT] . left  =  theGadgets [QUIT] . right  +  gadgetBorder; 
theGadgets [WRITEDT] . right  =  theGadgets [WRITEDT] . left  +gadgetwide; 
strcpy (theGadgets [WRITEDT] .string, "Save  Hull") ; 


*  observation-parameters  control  panel 


*/ 


theGadgets [CCWISE] .top  =  gadgetBorder; 

theGadgets [CCWISE] .bottom  =»  theGadgets [CCWISE] .top  +  gadgetTall; 
theGadgets  [CCWISE]  .  left  *  theCoordParauns .  dvdWidth  +  gadgetBorder; 
theGadgets [CCWISE] . right  =  theGadgets [CCWISE] . left  +  gadgetwide; 
strcpy (theGadgets [CCWISE] .string, "Counter  C”) ; 


theGadgets [OVMAG] .top  =  theGadgets [CCWISE] . top; 
theGadgets [OVMAG] .bottom  »  theGadgets[CCWISEj.bottom; 
theGadgets [OVMAG] . left  »  theGadgets [CCWISE] . right  +  gadgetBorder; 
theGadgets [OVMAG] . right  -  theGadgets [OVMAG] . left  +  gadgetwide; 
strcpy (theGadgets [OVMAG] . string, "Expand") ; 

theGadget s [ OVMIN ] . t op  *  t heGadget s [ CCWI SE ] .top; 

theGadgets [OVMIN] .bottom  »  theGadgets [CCWISE] .bottom; 
theGadgets [OVMIN] . left  »  theGadgets [OVMAG] . right  +  gadgetBorder; 
theGadgets [OVMIN] . right  =  theGadgets [OVMIN] . left  +  gadgetwide; 
strcpy (theGadgets [OVMIN] . string, "Shrink") ; 


theGadgets [CLWISE] .top  -  theGadgets[CCWISE].top; 
theGadgets [CLWISE] .bottom  »  theGadget3[CCWISE].bottom; 
theGadgets [CLWISE] . left  ■  theGadgets [OVMIN] .right  +  gadgetBorder; 
theGadgets [CLWISE] .right  -  theGadgets [CLWISE] . left  +  gadgetwide; 
strcpy (theGadgets [CLWISE] . string, "Clockwise")  ; 


theGadgets [OVHEAD] .top  *  theGadgets [CCWISE] .bottom  +  gadgetBorder; 
theGadgets [OVHEAOj .bottom  «  theGadgets [OVHEAD j .top 

+  (gadgetWide+gadgetBorder) *3; 

•theGadgets [OVHEAD] . left  -  theGadgets [CCWISE] . left; 
theGadgets [OVHEAD] . right  •  theGadgets [CLWISE] . right ; 
strcpy (theGadgets [OVHEAD] . string, "") ; 


theGadgets [ALT] .top  »  theGadgets [OVHEAD] .top; 
theGadgets [ALT] .bottom  «  theGadgets [OVHEAD] .bottom; 


theGadgets [ALT] . left  =  theGadgets [OVHEAD] . right  +  gadgetBorder; 
theGadgets [ALT] . right  =  theGadgets [ALT] . left  +  gadgetTall; 
strcpy  (theGadgets  [ALT]  .string, ; 

theGadgets [ALTMAG] .top  =  theGadgets[CCWlSE].top; 
theGadgets [ALTMAG] .bottom  =  theGadget3[CCWlSE].bottom; 
theGadgets [ALTMAG] . left  =  theGadgets[ALT].left; 
theGadgets [ALTMAG] . right  =  theGadgets [ALT] . right ; 
strcpy (theGadgets [ALTMAG] . string, "Ex”) ; 

theGadgets [INWARD] . top  =  theGadgets [OVHEAD] .bottom  +  gadgetBorder; 

theGadgets [INWARD] .bottom  =  theGadgets [INWARD] .top  +  gadgetTall; 
theGadgets [INWARD] .left  =  theGadgets[CCWISE].left; 
theGadgets [INWARD] . right  =  theGadgets [CCWISE] . right ; 
strcpy (theGadgets [INWARD] . string, "Zoom  in") ; 

theGadgets [OVER] .top  =  theGadget3[INWARD].top; 
theGadgets [OVER] .bottom  =  theGadgets [INWARD] .bottom; 
theGadgets [OVER] . left  =  theGadgets [OVMAG] . left ; 
theGadgets [OVER] . right  =  theGadgets [OVMAG] . right; 
strcpy (theGadgets [OVER] . string, "Go  over") ; 

theGadgets [UNDER] .top  =  theGadgets [INWARD] .top; 
theGadgets [UNDER] .bottom  =  theGadgets [INWARD] .bottom; 
theGadgets [UNDER] . left  =  theGadgets [OVMIN] . left ; 
theGadgets [UNDER] . right  =  theGadgets [OVMIN] . right ; 
strcpy (theGadgets [UNDER] . string, "Go  under") ; 

theGadgets [OUTWARD ] . top  =  theGadgets [ INWARD ].top; 
theGadgets [OUTWARD] .bottom  =  theGadgets [INWARD] .bottom; 
theGadgets [OUTWARD] .left  =  theGadget3[CLWISE].left; 
theGadgets [OUTWARD] . right  «  theGadgets [CLWISE] . right ; 
strcpy (theGadgets [OUTWARD] . string, "Zoom  out") ; 

theGadgets [ALTMIN] .top  »  theGadget3[lNWARD].top; 

theGadgets [ALTMIN] .bottom  »  theGadget3[INWARD].bottora; 
theGadgets [ALTMIN] . left  “  theGadgets [ALT] . left; 
theGadgets [ALTMIN] . right  =  theGadgets [ALT] . right ; 
strcpy (theGadgets [ALTMIN] . string, "Sh") ; 

theGadgets [VIEWIN] .top  *  theGadgets [INWARD] .bottom  +  gadgetBorder; 

theGadgets [VIEWIN] .bottom  =  theGadgets [VIEWIN] .top  +  gadgetTall; 
theGadgets [VIEWIN] . left  =  theGadgets [INWARD] . left; 
theGadgets [VIEWIN] . right  =  theGadgets [INWARD] . right; 
strcpy (theGadgets [VIEWIN] . string, "See  point") ; 

theGadgets [VIEWOUT] .top  »  theGadgets[VlEWlN].top; 
theGadgets [VIEWOUT] .bottom  =  theGadget3[VIEWIN].bottom; 
theGadgets [VIEWOUT] . left  =  theGadget3[0UTWARD].left; 
theGadgets [VIEWOUT] . right  =  theGadgets [OUTWARD] . right ; 
strcpy (theGadgets [VIEWOUT] . string, "Eye  point") ; 

/*  solid-type  control  panel  */ 

theGadgets [AXESG] .top  *  theGadgets [VIEWIN] .bottom  +  S^gadgetBorder 
theGadgets [AXESG] .bottom  theGadgets [AXESG] .top  +  gadgetTall; 
theGadget 3 [AXESG] . left  >  theGadgets[INWARD].left; 
theGadgets [AXESG] . right  *  theGadgets [INWARD] . right ; 
strcpy (theGadgets [AXESG] . string, "Curve") ; 

theGadgets [WIREG] .top  •  theGadgets [AXESG] .top; 
theGadgets [WIREG] .bottom  >  theGadgets[AXESG].bottom; 
theGadgets [WIREG] . left  «  theGadgets[OVER].left; 
theGadgets [WIREG] .right  »  theGadgets [OVER] . right ; 
strcpy (theGadgets [WIREG] . string, "Wireframe") ; 


theGadgeta [HIDEG] . top  =  theGadget3[AXESG].top; 
theGadgets [HIDEG] .bottom  =  theGadget3[AXESG].bottom; 
theGadgets [HIDEG] . left  =  theGadget3[UNDER].left; 
theGadgeta [HIDEG] . right  =  theGadgeta [UNDER] , right ; 
atrcpy (theGadgeta [HIDEG] .atring, "White") ; 

theGadgeta [SHADG] .top  =  theGadgeta [AXESG] . top; 
theGadgeta [SHADG] .bottom  =  theGadget3[AXESG].bottom/ 
theGadgeta [SHADG] . left  =  theGadgeta [OUTWARD] . left; 
theGadgeta [SHADG] . right  =  theGadgeta [OUTWARD] . right ; 
atrcpy (theGadgeta [SHADG] . atring, "Shaded”) ; 

theGadgeta [HIGHLT] .top  =  theGadgeta [AXESG] .bottom  +  gadgetBorder; 
theGadgeta [HIGHLT] .bottom  =  theGadgeta [HIGHLT] . top  +  gadgetTall; 
theGadgeta [HIGHLT] . left  =  theGadgeta [SHADG] . left ; 
theGadgeta [HIGHLT] . right  =  theGadgeta [SHADG] . right ; 
atrcpy (theGadgeta [HIGHLT] . atring, "Highlight")  ; 

theGadgeta [DOHULL] .top  =  theGadget3[HIGHLT].top; 
theGadgeta [DOHULL] .bottom  =  theGadgeta [HIGHLT] . bottom; 
theGadgeta [DOHULL] . left  =  theGadget3[AXESG].left; 
theGadgeta [DOHULL] . right  =  theGadgetafwiREGJ.right; 
atrcpy (theGadgeta [DOHULL] . atring, "COMPUTE  CONVEX  HULL"); 

/*  grid  refinement  control  panel  */ 

theGadgeta [COARSE] .top  =  theGadgeta [HIGHLT] .bottom  +  5*gadgetBorder 
theGadgeta [COARSE] .bottom  =  theGadgeta [COARSE] .top  +  gadgetTall; 
theGadgeta [COARSE] . left  =  theGadget3[AXESG].left; 
theGadgeta [COARSE] .right  *  theGadget3[AXESG].right; 
atrcpy (theGadgeta [COARSE] . atring, "Leaa  fine") ; 

theGadgeta [FINE] . top  *  theGadgeta [COARSE] .top; 
theGadgeta [FINE] .bottom  «  theGadgeta [COARSE] .bottom; 
theGadgeta [FINE] .left  «  theGadget3[SHADG].left; 
theGadgeta [FINE] . right  =  theGadgeta [SHADG] . right ; 
atrcpy (theGadgeta [FINE] .atring, "More  fine") ; 

/*  parameter  range  control  panel  */ 

theGadgeta [MINDM] .top  =  theGadgeta [COARSE] .bottom  +  5*gadgetBorder; 
theGadgeta [MINDM] .bottom  =  theGadgeta [MINDM] .top  +  gadgetTall; 
theGadgeta [MINDM] . left  =  theGadget3[C0ARSE].left; 
theGadgeta [MINDM] .right  =  theGadgetafcOARSEJ.right; 
atrcpy (theGadgeta [MINDM] . atring, "-  t  min"); 

theGadgeta  [MINDP]  .top  =>  theGadget3[MINDM].top; 
theGadgeta [MINDP] .bottom  =  theGadget3[MINDM].bottom; 
theGadgeta [MINDP] . left  =  theGadgeta [FINE] . left ; 
theGadgeta [MINDP] . right  =  theGadgeta [FINE] . right ; 
atrcpy (theGadgeta [MINDP] . atring, "+  t  min"); 

theGadgeta [MAXDM] .top  =  theGadgeta [MINDM] .bottom  +  gadgetBorder; 
theGadgeta [MAXDM] .bottom  =  theGadgeta [MAXDM] .top  +  gadgetTall; 
theGadgeta [MAXDM] . left  =  theGadget3[MINDM].left; 
theGadgeta  [MAXDM]  .  right  =■  theGadget3[MINDM].right; 
atrcpy (theGadgeta [MAXDM] . atring, t  max"); 

theGadgeta [MAXDP] .top  »  theGadget3[MAXDM].top; 
theGadgeta [MAXDP] .bottom  »  theGadgeta [MAXDM] .bottom; 
theGadgeta [MAXDP] . left  »  theGadgeta [MINDP] . left; 
theGadgeta [MAXDP ] . right  *  theGadgeta [MINDP ] . right ; 
atrcpy (theGadgeta [MAXDP] . atring, "+  t  max") ; 

/*  independent  acaling  of  axea  */ 


theGadgets [X2] . top  =  theGadgets [MAXDM] .bottom  +  3  *  gadgetBorder; 
theGadget 3 [X2] .bottom  =  theGadgets [X2I . top  +  gadgetTall; 
theGadgets [X2] . left  =  theGadget3[MAXDM].left; 
theGadgets [X2j . right  =  theGadgetsCMAXDMj.right; 
strcpy (theGadgets [X2] . string,  ”  x  *  2”) ; 


theGadgets [X5] .top  =  theGadget3[X2].top; 
theGadgets [X5] .bottom  =  theGadgets [X2] .top  +  gadgetTall; 
theGadgets [XS] . left  =  theGadgets [X2] . right  +  gadgetBorder; 

theGadgets [X5] . right  =  theGadgets [X5] . left  +  gadgetWide; 
strcpy (theGadgets CX5] . string, "  x  /  2"); 


theGadgets (Y2] .top  =  theGadgets [X2 3 .bottom  +  gadgetBorder; 
theGadgets [Y2] .bottom  =  theGadgets [Y2] . top  +  gadgetTall; 
theGadgets [y2 3 . left  =  theGadget3[X23.1eft; 
theGadgets (Y2 3 . right  =  theGadgets[X23.right; 
strcpy (theGadgets tY2 3 . string,  "  y  *  2"); 


theGadgets [Y5 3 .top  =  theGadget3[Y23.top; 
theGadgets [Y5 3 .bottom  =  theGadgets [Y23 .top  +  gadgetTall; 
theGadgets [Y5 3 . left  =  theGadgetsixsj.left; 

theGadgets [Y53 . right  =  theGadgetsixsj.right; 
strcpy (theGadgets [Y5 3 . string, "  y  /  2") ; 


theGadgets [Z2 3 .top  =  theGadgets [Y2 3 .bottom  +  gadgetBorder; 
theGadgets [Z2 3 .bottom  =  theGadgets [Z2 3 .top  +  gadgetTall; 
theGadgets [Z2 3 . left  =  theGadget3[Y23.1eft; 
theGadgets [Z2 3 .right  =  theGadget3CY23.right; 
strcpy (theGadgets [Z2 3 . string, "  z  *  2”); 


theGadgets [Z5 3 .top  =  theGadgets [Z2 3 .top; 
theGadgets [Z5 3 .bottom  =  theGadgets [Z23 .top  +  gadgetTall; 
theGadgets  [  Z5  3  .  left  =«  theGadgets  [ Y5  j  .  left  ; 
theGadgets  [ZS]  .  right  =*  theGadgetsfYSj.right; 
strcpy (theGadgets [ZS 3 . string, "  z  /  2”); 


}/*  end  function  gadgetDataO  */ 


/*  FILE:  getdata.c 

i*  Routines  to  get  the  curve  and  hull  data.  */ 


♦include  <X11/Xlib.h> 
♦ij^ude  <X11/Xutil.h> 
#i^R.ude  <stdio.h> 
♦include  <strings.h> 
♦include  <niath.h> 
♦include  "global. h” 
♦include  "prototypes .h" 


extern  osCoord  theData [MAXDATA] ; 
extern  int  nData; 

extern  triangle  theHull [MAXTRIANGLES] ; 
extern  intTriangle  intHull [MAXTRIANGLES] ; 
extern  int  nHull; 

extern  coordParams  theCoordParams; 
extern  osCoord  centerHull; 

axtern  int  minDelta, maxDelta, numDelta; 


/*  The  variables  minDelta  and  maxDelta  need  some  explanation.  Here  goes: 

**  The  data  file  which  contains  the  (x,y,2)  coordinate  triples  may  have 
•'*  an  arbitrary  number  of  triples  in  it.  Typically,  it's  expected  that  there 
**  would  be  MAXDATA  triples  there,  since  that's  the  largest  number  of  data  point 
**  that  this  program  is  designed  to  use.  The  variable  nData  would  tell  how 
**  many  of  those  triples  would  be  used.  For  instance,  if  nData  were  set  to 
**  32,  then  every  (MAXDATA/ 32 ) th  triple  would  be  used,  and  the  others  would  be 
**  ignored.  Now,  the  user  may  also  specify  that  he  wants  to  chop  off  part 
**  of  the  curve:  for  instauice  the  user  might  want  to  chop  off  the  tail  of 
**  the  curve  and  view  the  convex  hull  of  just  the  head.  In  that  case,  we 
**  set  minDelta  to  something  larger  than  1;  for  exaunple,  say  minDelta  =  3. 
**Jhen  of  our  32  triples,  the  first  and  second  would  not  be  used.  Now, 

*’1^^ata  would  have  to  be  set  to  30,  since  there  are  only  30  data  points 
**^eing  used.  The  variables  nxamDelta  would  be  set  to  32,  signifying  that 
**  these  30  data  points  are  a  subset  of  the  original  32.  If  numDelta  = 

**  nData,  that  means  that  the  user  wants  to  see  all  of  the  curve.  If  the 
**  user  wanted  to  also  chop  off  the  head  of  the  curve,  then  maxDelta  would 
**  be  set  to  something  less  than  32.  Note  that  we  always  shift  the  data 
**  in  the  theData []  array  so  that  the  data  we  actually  intend  to  use  is 
**  stored  in  indices  1  through  nData.  In  this  mauiner,  all  of  this  numDelta 
**  confusion  is  avoided  in  all  of  the  other  subroutines  of  this  progreun.  */ 


void  getDataO 

{ 

int  i, j, counter, k, ratio, nFile,nToUse, extra; 

float  t,u[4] , vt4]  ,w[4] ; 
float  centerx, centery, centerz; 
osCoord  tempData; 


/*  open  the  data  file  */ 

FILE  *fl,  *fopen(); 

if  ( (fl  =  fopen ("curve . data" , "r") )  «=  NULL)  { 

printf  ( "Unedsle  to  open  file  %s  for  reading.  \n" ,  "curve .  data" )  ; 
exit  ( 1 )  ; 

} 


/*  check  to  make  sure  the  data  file  has  enough  data  in  it  */ 
fscanf (fl, "%d", SnFile) ; 
if  (nFile  <  4)  { 

•printf( "Insufficient  data  for  generation  of  convex  hull.\n"); 
exit  (1) ; 

} 


f*  if  the  user  asks  for  more  points  than  there  are  in  the  data  file 
**  then  use  all  of  the  data  in  the  data  file;  he'll  have  to  be 


**  disappointed  */ 
if  (nFile  <  nData)  { 
nData  «  nFile; 
printf 

•  "%c  You  have  requested  more  data  than  is  available  in  the  data  f  ile .  \n" ,  7)  ; 
end  if  */ 

/*  only  read  every  ratio-th  entry  from  the  data  file;  note  that  we 

**  _always_  use  the  first  and  last  data  point  in  the  file,  so  that  the 

**  entire  curve  will  be  seen  */ 

counter  *  0; 

ratio  =  nFile/nData; 

extra  =  nFile  -  nData*ratio  +  ratio  -  1; 

I*  read  in  the  first  nData-1  data  points  */ 
for  (i  =  1;  i  <=  nData-1;  ++i)  { 

/*  read  this  record  and  store  it  */ 

fscanf  (f  1,  ''%f  %f  %f " ,  StheData  [i]  ,  x,  &theData  [i]  .y,  fitheData  [i]  .  z)  ; 
counter++; 

for  (j  =  1;  j  <=  ratio-1;  ++j)  { 

/*  read  this  record  and  ignore  it  */ 

f scanf (f 1, "%f  %f  %f " , &tempData.x, &tempData.y, StempData. z)  ; 
counter++; 

}/*  end  for  j  */ 
if  (i  <=  extra  )  { 

/*  read  this  extra  record  and  ignore  it  */ 

f scanf (fl, "%f  %f  %f ", StempData.x, StempData.y, fitempData. z) ; 
counter++; 

}/*  end  if  */ 

}/*  end  for  i  */ 


read  in  the  nData'th  data  point  as  the  last  record  in  the  file  */ 
countertl; 

Wr  (i  =  Ic;  i  <«  nFile-1;  ++i)  { 

/*  read  this  record  and  ignore  it  */ 

f scanf (fl, "%f  %f  %f", StempData.x, StempData.y, StempData.z) ; 
counter++; 

}/*  end  for  i  */ 
i  =  nData; 

/*  read  this  record  and  store  it  */ 

fscanf (f 1, "%f  %f  %f " , &theData [i] . x, StheData [i] , y, StheData [i] . z) ; 
counter++; 
f close (fl) ; 

/*  if  counter  !==  nFile,  then  we  screwed  up  somehow  */ 
if  (counter  !=  nFile)  { 

printf ( "Error  reading  data  file:  quantity  of  data  is  in  error. \n" ) ; 
}/*  end  if  */ 


/*  chop  off  the  bottom  or  the  top  of  the  curve  at  the  user's  request  */ 
nToUse  =  maxDelta-minDelta+1 ; 
for  (i=l;  i  <=  nToUse;  ++i)  { 

theData[i]  =  theData [minDelta-l+i] ; 

}/*  end  for  */ 
n\imDelta  =  nData; 
nData  =  nToUse; 


/*  compute  the  center  of  the  curve  */ 
centerx  =  0.0;  centery  =  0.0;  centerz 
for  (i  =  1;  i  <=  nData;  ++i)  { 

kcenterx  =  centerx  +  theData [i] . x; 
"centery  =  centery  +  theData [i] .y; 
centerz  *  centerz  +  theData [i] . z; 
}/*  end  for  */ 

centerx  =  centerx/ (float) nData; 
centery  =■•  centery/ (float )  nData; 


0.0; 


centerz  *  centerz/ (float) nData; 
centerHull.x  *  centerx; 
centerHull.y  =  centery; 
centerHull.z  =  centerz; 

ftull  -  0; 

/*  Just  as  you  would  in  the  routine  chulll...  */ 

/*  ADD  THREE  MORE  TRIANGLES:  THE  COORDINATE  AXES  */ 

/*  I  have  a  problem  here;  the  values  of  vcFront,  et  al,  are  computed 
**  in  the  function  setEyeO  below,  and  I  don't  want  to  call  that  function 
**  every  time  I  call  this  function.  So  really,  the  following  code  should 
**  be  moved  into  its  own  function  and  called  from  main() .  This  is  why 
**  getDataO  is  currently  called  twice  during  the  main  initialization. 

**  Stupid  mistake.  */ 


/*  the  x-axis:  */ 
theHull [nHull+1] .vlx 
theHull [nHull+l] .vly 
theHull [nHull+1] .viz 
theHull [nHul 1+1 j .v2x 
theHull [nHull+l] .v2y 
theHull [nHull+1] .v2z 


0 . 5 *theCoordParams .vcFront ; 

0.0; 

0.0; 

0.0;  theHull [nHull+1] .v3x  =  0.0; 

0.0;  theHull [nHull+1] .v3y  =  0.0; 

0.0;  theHull [nHull+1] .v3z  =  0.0; 


/*  the  y-axis:  */ 
theHull [nHull+2] .vlx 
theHull [nHull+2] .vly 
theHull [nHull+2] .viz 
theHull [nHull+2] .v2x 
theHull [nHull+2] .v2y 
theHull [nHull+2] .v2z 


0.0; 

0 . 5*theCoordPar2uns  .  vcRight ; 

0.0; 

0.0;  theHull [nHull+2] .v3x  *  0.0; 
0.0;  theHull [nHull+2] .v3y  =  0.0; 
0.0;  theHull [nHull+2] .v3z  *  0.0; 


the  z-axis:  */ 
eHull [nHull+3] . vlx  = 
theHull [nHull+3] .vly  = 
theHull [nHull+3] .viz  = 
theHull  [nHull+3]  .v2x  =» 
theHull [nHull+3] . v2y  = 
theHull [nHull+3] .v2z  = 


0.0; 

0.0; 

0 .5*theCoordParams.vcTop; 
0.0;  theHull [nHull+3] .v3x 
0.0;  theHull [nHull+3] .v3y 
0.0;  theHull [nHull+3] .v3z 


0.0; 

0.0; 

0.0; 


/*  compute  other  aspects  of  the  triangle  data  */ 
t  =  0.333; 

for  (i  =  1;  i  <=  nHull+3;  ++i)  { 


/*  compute  the  center  of  each  triangle  */ 

theHull [i] . centerx  ®  (theHull [i] .vlx  +  theHull [i] . v2x  +  theHull [i] .v3x) *t 
theHull [i] . centery  =  (theHull [i] .vly  +  theHull [i] .v2y  +  theHull [i] .v3y) *t 
theHull [i] . centerz  =  (theHull [i] .viz  +  theHull [i] .v2z  +  theHull [i] .v3z) *t 


/*  compute  the  normal  of  each  triangle 
u[l]  =  theHull [i] .vlx  -  theHull [i] .v3x; 
u[2]  =  theHull [i] .vly  -  theHull [i] .v3y; 
u[3]  *  theHull [i]  .viz  -  theHull [i]  .v3z; 
v[l]  =  theHull [i] .v2x  -  theHull [i] .v3x; 
v[2]  =  theHull [i] .v2y  -  theHull [i] .v3y; 
v[3]  *  theHull [i] . v2z  -  theHull[i].v3z; 
cross (u,v,w) ;  normali2e(w,u); 
theHull [i] .normalx  =  u[l]; 
theHull [i] .normaly  =  u[2]; 
theHull [i] .normalz  *  u[3]; 

*  end  for  */ 


*/ 


/*  the  axes  don't  really  have  a  unique  normal,  since  they  are  lines 
for  (i  “  nHull+1;  i  <=  nHull+3;  ++i)  { 

theHull [i] .normalx  =  centerx  -  theHull[i].v3x; 
theHull [i] .normaly  =  centery  -  theHull [i] . v3y; 


*/ 


thoHull [i] .normalz  *  centerz  -  theHull [i] . v3z; 
}/*  end  for  */ 

)/*  end  function  getDataO  */ 


f*  COMPUTE  THE  CONVEX  HULL  */ 
void  chull 0 
{ 

int  '  i ; 

float  t,u[4],v[4],w[4]; 
float  centerx, centery , centerz ; 

nHull  =  hull3d (theData, theHull, intHull, nData) ; 

/*  ADD  THREE  MORE  TRIANGLES:  THE  COORDINATE  AXES  */ 


/*  the  x-axis:  */ 
theHull [nHull+1 ] .vlx  = 
theHull [nHull+l] .vly  = 
theHull [nHull+1] .viz  = 
theHull [nHull+1] .v2x  = 
theHull f nHull+1 ] .v2y  = 
theHull [nHull+1] .v2z  = 

/*  the  y-axis:  */ 
theHull [nHull+2 3 .vlx  = 
theHull [nHull+2] .vly  = 
theHull tnHull+2] .viz  = 

t  theHull [nHull+2] .v2x  = 
eHull [nHull+2] .v2y  = 
eHull  [nHull+2]  .v2z  =* 

/*  the  2-axis:  */ 
theHull [nHull+3] .vlx  = 
theHull [nHull+3] .vly  = 
theHull [nHull+3] .viz  = 
theHull [nHull+3] .v2x  = 
theHull [nHull+3] .v2y  = 
theHull [nHull+3] .v2z  = 


0 . 5*theCoordParains .  vcFront  ; 

0.0; 

0.0; 

0.0;  theHull [nHull+1] .v3x  *  0.0; 
0.0;  theHull [nHull+1 ] .v3y  =  0.0; 
0.0;  theHull [nHull+1] .v3z  =  0.0; 


0.0; 

0 . 5*theCoordParains .  vcRight; 

0.0; 

0.0;  theHull [nHull+2] .v3x  =  0.0; 
0.0;  theHull [nHull+2] .v3y  =  0.0; 
0.0;  theHull [nHull+2] .v3z  *  0.0; 


0.0; 

0.0; 

0 . 5*theCoordPararos . vcTop; 

0.0;  theHull  [nHull+3]  .v3x  =*  0.0; 
0.0;  theHull [nHull+3] .v3y  =  0.0; 
0.0;  theHull [nHull+3] .v3z  =  0.0; 


/*  compute  other  aspects  of  the  triangle  data  */ 
t  »  0.333; 

for  (i  »  1;  i  <=  nHull+3;  ++i)  { 


/*  compute  the  center  of  each  triangle  */ 

theHull [i] . centerx  =  (theHull [i] .vlx  +  theHull [i] .v2x  +  theHull[i].v3x)*t; 
theHull [i] . centery  =  (theHull [i] .vly  +  theHull [i] .v2y  +  theHull[i].v3y)*t; 
theHull [i] . centerz  =  (theHull [i] .viz  +  theHull [i] . v2z  +  theHull [i].v3z)*t; 


/*  compute  the  normal 


u[l]  “  theHull [i] .vlx 
u[2]  =  theHull [i] .vly 
u[3]  =»  theHull  [i]  .viz 
v[l]  =  theHull [i] .v2x 
v[2]  =  theHull [i] .v2y 
v[3]  =a  theHull  [i]  .v2z 
cross (u, V, w) ;  normalize (w, u) 
ktheHull [i] .normalx  =  u[l]; 
"theHull [i] .normaly  =  u[2]; 
theHull [i] .normalz  »  u[3]; 
}/*  end  for  */ 


of  each  triangle 

-  theHull [i] .v3x; 

-  theHull [i] .v3y; 

-  theHull [i] .v3z; 

-  theHull [i] .v3x; 

-  theHull [i] .v3y; 
theHull [i] .v3z; 


/*  the  axes  don't  really  have  a  unique  normal,  since  they  are  lines  */ 


for  (i  *  nHull+1;  i  <= 
theHull [i] .nonnalx  > 
theHull  [i]  .nornvaly  » 
theHul 1 [ i ] . normal z  : 
end  for  */ 

}i^Bend  chull  */ 


nHull+3;  ++i)  { 
centerx  -  theHull [i] .v3x; 
centery  -  theHull [i] .v3y; 
centerz  -  theHull [i].v32; 


/*  set  the  eye/see/light  points 
void  setEyeO 
{ 

float  l,r,T,b,F,B;  /*  left,  right.  Top,  bottom.  Front,  Back  */ 
float  maxall; 
int  i  ; 


/*  compute  maximum  size  needed  for  view  cube  */ 
F  =  “1.0e32;  r  =  F;  T  =  F; 

B  =  1.0e32;  1  =  B;  b  =  B; 
for  (i  =  1;  i  <=  nData;  ++i)  { 

F  =  max2 (F, theData [i] . x) ; 

B  =  min2 (B, theData [i] .x) ; 
r  =  max2 (r, theData [i] .y) ; 

1  =  min2  theData [i]  . y)  ; 

T  =  max2 (T, theData [i] . z) ; 
b  «  min2 (b, theData [i] . z) ; 

}/*  end  for  */ 


I*  set  the  minimxim/maximvim  initial  values:  */ 
maxall  =  max4 (fabs (F) , f abs (B) , f abs (r) , f abs (1) ) ; 
maxall  =  max4  (maxall, maxall,  fabs  (T)  ,  faJDs  (b) )  ; 


define  the  size  of  the  view  area, 
we  just  read  in  */ 


based  on  the  size  of  the  object 


theCc irdParams . vcRight 
theCoordParams . vcLeft 
theCoordParauns .  vcTop 
theCoordParaims .  vcBottom 
theCoordParams . vcFront 
theCoordParauns .  vcBack 


maxall; 

-maxall; 

maxall; 

-maxall; 

maxall; 

-maxall; 


theCoordParams . vrRight 
theCoordParauns ,  vrLeft 
theCoordParams . vrTop 
theCoordParauns .  vrBottom 


0 . 4*maxall; 
-0 . 4*maxall; 

0 . 4*maxall; 
-0 . 4*maxall; 


theCoordParauns .  osRight 
theCoordParams . osLeft 
theCoordParams . osTop 
theCoordParams . osBottom 
theCoordParauns .  osFront 
theCoordParauns .  osBack 


20 . 0*maxall; 
-20 , 0*maxall; 

20 . 0*maxall; 
-20 . 0*maxall; 

20 . 0*maxall; 
-20 . 0*maxall; 


theCoordParams . eye [ 1 ] 
theCoordParauns .  eye  [ 2  ] 
theCoordParams . eye [ 3 ] 


10 . 0*maxall; 
5 . 0*maxall; 
2 . 0*maxall; 


theCoordParams . light [ 1 ] 
theCoordParauns .  light  [2] 

teCoordParauns  .  light  [  3  ] 

eCoordParams . see [ 1 ] 
theCoordParams . see [ 2 ] 
theCoordParams . see [3] 


=  10.0*maxall; 
=  10.0*maxall; 
=■  10.0*maxall; 

(F+B) *0.5; 
(r+1) *0.5; 
(T+b) *0.5; 


}/*  end  function  setEyeO  */ 


/|^[rite  out  the  convex  hull  data  to  a  file,  at  the  user's  request  */ 
vHft  writeDataO 
{ 

int  i  ; 

FILE  *fl,  *fopen(); 

if  .( (fl  =  f open  ("hull. data",  "w")  )  ==  NULL)  { 

print f ("Unable  to  open  file  %s  for  writing. \n" , "hull . data") ; 
exit ( 1 ) ; 

}/*  end  if  */ 

fprintf (fl, "%d\n",nHull) ; 
for  (i=l;  i  <=  nHull;  ++i)  { 

fprintf (fl, "%f  %f  %f  %f  %f  %f  %f  %f  %f\n", 
theHull[i] . vlx, theHull [i] . vly, theHull [i] .viz, 
theHull [i] .v2x, theHull [i] .v2y, theHull [i] .v22, 
theHull [i] .v3x, theHull [i] .v3y, theHull [i] .v3z) ; 

}/*  end  for  */ 

fclose (f 1) ; 

}/*  end  function  write ()  */ 


/*  FILE:  intix.c 

**  Initialize  the  connection  to  the  X-server.  */ 


/*  X-windows  include  files: 
Include  <X11/Xlib.h> 
I^Pblude  <X11/Xutil .h> 


*/ 


/*  Standard  I/O  include  file:  */ 
♦include  <stdio.h> 


♦include  "global. h" 

♦include  "prototypes .h" 

/*  Global  variables:  */ 
extern  Display  *theDisplay; 
extern  int  theScreen; 

extern  int  theDepth; 

extern  unsigned  long  theBlackPixel; 
extern  unsigned  long  theWhitePixel; 
extern  Colormap  theColormap; 


/*  Function  initX  sets  up  the  connection  to  the  X-server  and  stores 
**  information  zQjout  the  environent.  */ 
void  initXO 
{ 

/*  Establish  a  connection  to  the  X-server:  */ 
theDisplay  =  XOpenDisplay (NULL) ; 


/*  Check  to  make  sure  the  display  opened  okay:  */ 
lif  (theDisplay  »=  NULL)  { 
fprintf (stderr, 

"ERROR:  Cannot  establish  a  connection  to  the  X- Server  %s\n", 
XDisplayNaune  (NULL)  )  ; 
exit (1) ; 

}/*  end  if  */ 


/*  Find  out  what  the  default  screen  and  it's  (color)  depth  is. 
**  If  theDepth  ==  1  then  we  have  a  monochrome  system.  */ 
theScreen  =  Def aultScreen (theDisplay) ; 
theDepth  =  DefaultDepth (theDisplay, theScreen) ; 
theBlackPixel  =  BlackPixel (theDisplay, theScreen) ; 
theWhitePixel  =  WhitePixel (theDisplay, theScreen) ; 
theColormap  **  Def aultColormap  (theDisplay,  theScreen)  ; 

}/*  end  function  initX()  */ 


/*  Function  getXinfo  prints  out  information  about  the  current  X-Window 
**  display  and  screen.  Entirely  optional  to  include  this,  of  course, 
void  getXInfoO 
{ 

printf("%s  version  %d  of  the  X  Window  System,  X%d  R%d\n", 
ServerVendor (theDisplay) , 

VendorRelease (theDisplay)  , 

ProtocolVersion (theDisplay) , 

^  ProtocolRevision (theDisplay) )  ; 


if  (theDepth  «  1)  { 

printf ("Color  plane  depth . %d  (monochrome) \n" , theDepth) ; 

)  else  ( 

printf ("Color  plane  depth . %d\n", theDepth) ; 


end  if 


printf ( "Display  width . %d\n" , DisplayWidth (theDisplay , theScreen) ) ; 

printf ("Display  height . %d\n",DisplayHeight (theDisplay, theScreen) ) 

P^i^tf("The  display  %s\n" , XDisplayNaune  (theDisplay) )  ;  */ 

}/*  end  function  getXInfoO  */ 


/*  FILE:  hull.c 

**  Function  to  compute  the  convex  hull  of  a  set  of  3D  points. 

**  (Programming  note:  in  this  file  the  left-handed  cross  product  function 
**  from  the  3d.c  file  is  used.  Accordingly,  the  sign  is  changed  here  to 
*^jjake  it  a  right-handed  cross  product.)  */ 

#^Slude  <X11/Xlib.h> 

♦include  <X11/Xutil .h> 

♦include  <stdio.h> 

♦include  <math.h> 

♦include  " global. h" 

♦include  "prototypes .h" 


/*  Returns  the  number  of  points  in  the  hull.  */ 

int  hull3d (osCoord  theData[] , triangle  theHull [ ] , intTriangle  intHull [] , int  n) 

{ 

int  i,nHull; 

nHull  =  Giftwrapping (theData, theHull, intHull, n) ; 
return (nHull) ; 

}/*  end  ftinction  hull2d()  */ 


/* - - - - - - */ 

/*  The  giftwrapping  algorithm,  taken  from  page  128  of  Preparata  and  Shamos.  */ 
/*  Note  that  I  have  modified  the  algorithm  somewhat.  Their  version  had  */ 

/*  some  bugs.  */ 

/’5U|ypedef  struct  {  int  vertex [4];  }  Triangle;  */ 


struct  (  int  vertex^];  }  Edge;  */ 


/*  This  function  returns  the  (integer)  number  of  triangles  in  the  hull.  */ 
int  Giftwrapping (osCoord  theData [], triangle  theHull [], intTriangle  intHull [], int 
{ 

int  i, numH, numQ, numT; 

int  freq[MAXDATA] ;  /*  counts  how  often  each  point  is  used  */ 

Triangle  F,Fprime;  /*  F  is  a  single  facet  */ 

Triangle  Q  [MAXTRIANGLES]  ;  /*  Q  is  a  qpaeue  of  facets  */ 

Edge  T[MAXEDGES];  /*  T  is  a  file  of  edges  */ 

Edge  t[4];  /*  t  is  a  list  of  the  edges  in  F  */ 

Edge  e;  /*  e  is  a  single  edge  */ 

/*  set  frequency  count  to  zero;  used  for  2D  degeneracies  where  the  same 
**  point  might  get  chosen  over  and  over  again,  if  we  didn't  try  to  choose 
**  the  least-frequently-used  points  */ 
for  (i=l;  i<=MAXDATA-l;  ++i)  {  freq[i]  -  0;  } 

/*  Q  :=  empty  set  */ 
nximQ  =*  0; 

/*  1  :■  empty  set  */ 
n\amT  *  0 ; 


find  an  initial  starting  facet  */ 


0; 


findFirstFacet  (theData,  theHull,  freq,  n)  , 
numH  «  storeh  (F,  theHull,  intHull,  theData,  nximH); 


/*  T  <»*  subfacets  of  F  */ 


niomT  *  addToFile  (F,T,numT)  ; 


/*  Q  <-«  F  */ 

numQ  ■  push  (F,  Q,  nuitiQ)  ; 


^■ile  (numQ  >0)  {  /*  while  Q  \-  empty  set  */ 

^^F  *  pop (Q, numQ) ;  numQ--; 
getEdges (F,t) ; 

/*  for  each  e  in  t  intersect  T  */ 
for  (i“l;  i<=3;  ++i  )  { 

if  (isCommon  (t  [i] ,  T,  niimT) )  { 

e. vertex [1]  =  t[i].vertex[l]; 
e. vertex [2]  =  t [i] .vertex [2] ; 

Fprime  =  giftWrap (e, F, theData, freq, n) ; 
numT  =  insertDelete (Fprime, T, numT) ; 
if  (numT  >  MAXEDGES-1)  { 

printf("%c  ERROR:  Insufficient  workspace  for  computing  edges . \n" , 7) ; 
return (numH) ; 

}/*  end  if  */ 

numQ  =  push (Fprime, Q, numQ) ; 
if  (n\imQ  >  MAXTRIANGLES-1)  { 

printf("%c  ERROR:  Insufficient  workspace  for  computing  hull.\n",7); 
return  (nvimH) ; 

}/*  end  if  */ 

}/*  end  if  */ 

}/*  end  for  each  */ 

nximH  =  storeh  (F,  theHull,  intHull,  theData, nxamH)  ; 
if  (numH  >  MAXTRIANGLES-4)  { 

printf("%c  ERROR:  Hull  consists  of  too  many  triangles  for  the  storage  alio 
return (numH) ; 

}/*  end  if  */ 

}/*  end  while  */ 


return (numH) ; 

}/*  end  function  Giftwrapping () 


*/ 


/*  Very  loosely  based  on  page  129  of  Preparata  and  Shamos.  */ 

Triangle  f indFirstFacet (osCoord  theData [], triangle  theHull [ ] , int  freq[], 
int  numD) 

{ 

int  i,pl,p2,p3; 

float  a[4],n[4],x[4],y[4],z[4],u[4],v[4],w[4]; 

float  minz , extRho , rho ; 

Triangle  theTriangle; 

/*  find  the  lowest  point  among  all  the  data  */ 
minz  =  theData [1] . z;  pi  =  1; 
for  (i*2;  i<=numD;  ++i)  { 

if  (theData [i] . z  <  minz)  {  minz  =  theData [i] . z;  pi  =  i;  } 

}/*  end  for  */ 


/*  iteration  #2: 

*/ 

/*  X  is  in  the  direction  of  the  x-axis  */ 
x[l]  -  1.0;  x[2]  =  0.0;  x[3]  =  0.0; 

/*  y  is  in  the  direction  of  the  y-axis  */ 
>y[l]  -  0.0;  y[2]  »  1.0;  y[3]  =  0.0; 

/*  z  is  in  the  direction  of  the  z-axis  */ 
z[l]  -  0.0;  2[2]  -  0.0;  z[3]  =  1.0; 


extRho  »  1.0e32;  p2  =  0; 

for  (i=l;  i<=nuinD;  ++i)  { 
if  (i  *»*  pi)  {  continue;  } 


/*  V  is  the  direction 
w[l]  -  theData[i] .x  - 
w[2]  =  theDatafi] .y  - 
w[3j  «  theDatafii.z  - 
normalize (w, v) ; 


of  the  proposed 
theData [pi] .x; 
theDataipl] .y; 
theData [pi] . z; 


first  edge  */ 


/*  we  want  the  edge 
rho  =  dotprd(v,x); 
‘if  (rho  <  extRho)  { 
extRho  =  rho; 
p2  =  i; 

}/*  end  if  */ 


which  is 


'most  obtuse'  to  the  x-axis  */ 


}/*  end  for  */ 
if  (p2  ==  0)  { 

printf("%c  ERR.0R: 
exit (1)  ; 

}/*  end  if  */ 


Unable  to  find  second 


starting  point . \n” , 7) ; 


/*  iteration  #3: 

*/ 

/*  u  is  the  direction  of  the  edge  we  found  above  */ 

w[l]  =  theData [p2] . X  -  theData [pi] ,x; 

w[2]  =  theData [p2] . y  -  theData [pi] .y; 

w[3]  =  theData [p2] . z  -  theData [pi] . z; 

normalize (w, u) ; 


extRho  = 
for  (i=l; 
if  ((i 


1.0e32;  p3  =  0; 
i<=»numD;  -f+i)  { 

==  pi)  11  (i  *=  p2) )  {  continue;  } 


/*  V  is  the  direction  of  the  proposed  second  edge  */ 

w[l]  =  theData[i].x  -  theData [pi] .x; 

w[2]  =  theData[i].y  -  theData [pi] .y; 

w[3]  =  theData[i].z  -  theData [pi] . z; 

normalize (w, v) ; 


I*  n  is  the  normal  of  the  proposed  first  face  */ 
cross (u, V, a) ;  normalize (a, n); 


/*  we  want  the  normal  to  be  'most  obtuse'  to  the  x-axis  */ 
rho  =»  dotprd(n,x); 
if  (rho  <  extRho)  { 
extRho  =  rho; 
p3  =  i; 

}/*  end  if  */ 

}/*  end  for  */ 
if  (p3  ==  0)  ( 

printf("%c  ERROR:  UnsUsle  to  find  third  starting  point .  \n" ,  7)  ; 
exit (1) ; 

}/*  end  if  */ 


} 


theTriangle .vertex [1]  = 
theTriangle .vertex [2]  = 
theTriangle .vertex [3]  = 
^eq[pl]++;  freq[p2]++; 
^^turn  (theTriangle)  ; 


pi; 

P2; 

P3; 

freq[p3] ++; 


/*  only  add  F  to  the  T  file  if  it's  not  already  there  */ 
int  addToFile  (Triauigle  F,Edge  T[],int  niutiT) 

{ 


int  niimVl ,  n\imV2 ,  a  ; 
i,j; 

^pr  (i*l;  i<=3;  ++i) 


if  (i— 1)  { 
if  (i«2)  { 
if  (i-=3)  { 
a  =  False; 
for  (j=l; 
if 


niamVl 

numVl 

nxamVl 


{ 

»  F. vertex [1] 
=  F. vertex [2] 
=  F. vertex [3] 


j<=numT; 

(  (  (niamVl  =«  T 
*  1  I  ( (numVl  ==  T 
{  a=®True;  } 

}/*  end  for  j  */ 
if  (a  =®  False)  { 
n\amT++/ 

T[numT] .vertex [1] 
T[n\amTj  .vertex [2] 
}/*  end  if  */ 

}/*  end  for  i  */ 
return (numT) ; 


++ j)  { 

[  j] . vertex [1] ) 
[  j] .vertex [2] ) 


=  numVl; 
=s  numV2; 


numV2  “  F. vertex [2];  } 
naimV2  =  F.  vertex  [3];  } 
niamV2  =  F.  vertex  [1];  } 


&&  (numV2  ==  T [j] .vertex [2] ) ) 
&&  (numV2  ==  T [j] .vertex [1] )) ) 


} 


/*  push  a  face  onto  the  stack  ONLY  if  it's  not  already  there  */ 
int  push  (Triangle  F,  Triangle  Q  [  ]  ,  int  ntamQ) 

{ 

int  i,faceIsNew; 
int  s[4],t[4]; 


facelsNew  =  True; 

Kl]  =  F.vertex[l];  s[2]  =  F.vertex[2];  s[3]  ==  F.vertex[3]; 
r  (i=l;  i<=  nuumQ;  ++i)  { 

t[l]  =  Q [i] .vertex [1] ;  t[2]  =  Q [i] .vertex [2] ;  t[3]  =  Q [i] .vertex [3] 
if 


( 

(  (S[l] 

==t 

[1]) 

&& 

(s 

[2] 

==t 

[2]) 

&& 

(s 

[3] 

==t 

[3] 

)  ) 

1 

((S[l] 

==t 

[1]) 

&& 

(s 

[3] 

==t 

[2]) 

&& 

(s 

[2] 

==t 

[3] 

)  ) 

1 

((s[2] 

==t 

[1] ) 

&& 

(s 

[1] 

==t 

[2]) 

&& 

(s 

[3] 

==t 

[3] 

)  ) 

1 

(  (s[2] 

==t 

[1]) 

&& 

(s 

[3] 

==t 

[2]) 

&& 

(s 

[1] 

==t 

[3] 

)  ) 

1 

((s[3] 

==t 

[1]) 

&& 

(s 

[1] 

==t 

[2]) 

&& 

(S 

[2] 

==t 

[3] 

)  ) 

1 

(  (s[3] 

==t 

[1]) 

&£ 

(s 

[2] 

==t 

[2]) 

&& 

(S 

[13 

==t 

[3] 

)  ) 

) 

{  facelsNew  =* 

Fai 

se 

;  } 

}/*  end  for  */ 

if  (facelsNew)  { 
numQ++ ; 

Q  [nvimQ]  .vertex  [1]  =  F.vertex[l]; 
Q [numQ] .vertex [2]  =  F.vertex[2]; 
Q [numQ] .vertex [3]  =  F. vertex [3]; 
}/*  end  if  */ 
return (numQ) ; 


/*  pop  a  face  off  the  stack  */ 
Triangle  pop (Triangle  Q[],int  numQ) 
{ 


Triangle  F; 

♦  vertex  [1] 
vertex [2] 
vertex [3] 
return (F) ; 


Q[n\imQ]  .vertex  [1]  ; 
Q[numQ] .vertex [2] ; 
Q[n\amQ]  .vertex  [3]  ; 


} 


/*  find  out  which  edges  belong  to  face  F 
void  getEdges (Triangle  F,Edge  t[]) 


|1] .vertex [1] 
[ij. vertex [2] 


F .vertex [1] ; 
F .vertex  [2] ; 


*/ 


t [2] .vertex [1]  =  F.vertex[2]; 
t  [2] .vertex [2]  =  F.vertex[3]; 


t  [3],  .vertex  [1]  =  F.  vertex  [1]; 
t  [3]'. vertex [2]  =  F. vertex [3]; 


/*  see  if  edge  at  is  in  the  list  of  edges  T  */ 
int  isConunon  (Edge  at,  Edge  T[],int  numT) 

int  j,a; 
a  =  False; 

for  (j=l;  j  <=  nxairiT;  ++j)  { 

if  ((  (at  .vertex  [1]  ==  T  [  j]  .vertex[l] )  &&  (at  .vertex  [2]  =*=  T  [  j  ].  vertex  [2]  )  ) 
II  ( (at .vertex [1]  ==  T [j] .vertex [2] )  &&  (at .vertex [2]  ==  T [j] .vertex [1] )) ) 
{  a=True;  } 

}/*  end  for  j  */ 
return (a) ; 


/j|[|fcfery  loosely  based  on  page  127  of  Preparata  and  Shamos.  */ 

Ti^ngle  giftWrap  (Edge  e,  Triangle  F,osCoord  theData  [  ] ,  int  freq[],int  nuiiiD) 

int  i ,  k ; 

osCoord  pl,p2,p3; 

float  u[4]  ,v[4]  ,w[4]  ,n[4]  ,E[4]  ,a[4]  ,  rho,  extRho; 

Triangle  newF; 

/*  find  out  which  point  of  face  F  is  not  in  edge  e  */ 
for  (i=l;  i  <=3  ;  ++i)  { 

if  ( (F. vertex[i]  !=  e.vertex[l])  &&  (F.vertex[i]  !=  e.vertex[2] ) ) 

{  k  =  i;  } 

}/*  end  for 


pl.x  =  theData [e. vertex [1] ] .x; 
pl.y  *  theData [e. vertex [1] ] .y; 
pi . 2  =  theData [e . vertex [ 1 ]]. z ; 

p2 . X  =  theData [e . vertex [2 ]]. x; 
p2.y  =  theData [e. vertex [2] ] .y; 
p2 . 2  =  theData [e .vertex [2] ]. 2, • 


p3.x  *  theData [F .vertex [k] ]. x; 
p3.y  =  theData [F. vertex [k] ] .y; 
p3.z  =  theData iF.vertex [k] ] .2, • 

/*  E  is  one  edge  of  the  face  we  are  wrapping  around  */ 
E[l]  *  p2.x-pl.x;  E[2]  *  p2.y-pl.y;  E[3]  =  p2.z-pl.z; 

11^  n  is  normal  to  the  face  we  are  wrapning  around  */ 
v[l]  *  p3.x-pl.x;  v[2]  «  p3.y-pl.y;  vLj]  =  p3.2-pl.2; 
cross (E, V, w) ;  normalize (w, n) ; 
n[l]*-(-1.0)  ;  n[2]*=(-1.0)  ;  n  [3]  *=  (-1 . 0)  ; 


extRho  *  1.0e32;  1=0; 

for  (k=l;  k<=nuniD;  ++k)  { 

if  ( (k»F. vertex [1] )  ||  (k*=F .vertex [2] )  ||  (k“F .vertex [3] )  )  {  continue;  } 

w[l]  =  theData[k] .x-pl .x; 

^w[2]  theData [k]  . y-pl .y; 

*w[3]  =  theData [k]  . z-pl . 2; 
normalize  (w,  v)  ; 

/*  a  is  normal  to  both  E  auid  v,  which  are  on  the  proposed  new  face  */ 
cross (E, V, w) ;  normali2e(w,a); 
a[l]*=(-1.0)  ;  a[2]*=(-1.0)  ;  a  [3]  *=  (-1 . 0)  ; 

/*  we  want  the  proposed  new  face  to  be  'most  obtuse'  with  the  old  face  */ 
rho  =  dotprd(n,a); 
if  (rho  <  excRho)  { 
extRho  =  rho; 
i  =  k; 

}  else  { 

/*  in  case  of  a  tie,  choose  the  point  least  frequently  used;  this 
**  ensures  that  as  many  points  'on  the  curve'  as  possible  will  be 

**  used  in  the  convex  hull  -  this  is  important  for  2D  degeneracies  */ 

if  (rho  *=  extRho)  { 

if  (freq[k]  <  freq[i])  { 
i  *  Ic  * 

}/*  end  if  */ 

}/*  end  if  */ 

}/*  end  if-else  */ 


}/*  end  for  */ 
if  (i  =*  0)  { 

printf("%c  ERROR: 
exit (1 ) ; 

■/*  end  if  */ 


Unable  to  giftwrap. 


Degenerate  problem?\n" , 7) ; 


newF .vertex [1] 
newF . vertex [ 2 ] 
newF .vertex [3] 
freq[i]++; 
return (newF) ; 


=  e . vertex [ 1  ]  ; 
=  e .vertex [2]  ; 
=  i; 


if  an  edge  of  face  F  is  in  the  list  T,  then  delete  it;  else  add  it  */ 
.nt  insertDelete (Triangle  F,Edge  T[],int  numT) 

int  nvimVl ,  numV2 ,  a  ; 

int  counter, filled [MAXEDGES] ; 

Edge  tempT [MAXEDGES] ; 
int  i , j  ; 


for  (i=l;  i<=n\amT;  ++i) 
for  (i=l;  i<=3;  ++i)  { 


{  filled [i]  =  True;  ) 


if  (i==l)  {  nxamVl  =  F. vertex [1];  numV2  = 

if  (i==2)  {  numVl  =  F. vert ex [2];  numV2  = 

if  (i==3)  {  numVl  =  F.vertex[3];  numV2  = 

a  =  False; 

for  (j=l;  j<=n\imT;  ++j)  { 

if  (filled [j]  “  False)  {  continue;  } 
if  (((numVl  ==  T[j]  .vertex  [1] )  &&  (n\amV2  ==  T  [  j  ].  vertex  [2  ])  ) 

II  ((numVl  ==  T[j] .vertex [2] )  &&  (numV2 

(  a*True;  filled[j]  =  False;  /*  delete 
}/*  end  for  j  */ 

if  (a  False)  {  /*  add  this  element  to  the  list  */ 
numT++ ; 

f  illed  [n\amT]  =  True; 


F. vertex [2] 
F. vertex [3] 
F. vertex [1] 


==  T [ j] .vertex [1] ) ) ) 
this  element  from  the  list  */} 


T [numT]  .vertex [1]  *  niimVl; 

T[nuniT]  .vertex [2]  =  n;ainV2; 

}/*  end  if  */ 

}/*  end  for  i  */ 

^  re-compress  the  list  */ 
counter  *  0; 

for  (i=l;  i<=numT;  ++i)  { 

if  (filled [i])  {  counter++;  tempT [counter]  =  T[i];  } 

}/*  end  for  */ 

for  (i*l;  i<=counter;  ++i)  { 

T[i]  =  tempT[i] ; 

}/*  ‘end  for  */ 

return (counter) ; 


/*  store  the  triangle  F  as  a  set  of  9  floating  points  nxombers  (three 
vertices)  as  well  as  3  integers  (the  points  on  the  curve)  */ 
int  storeh (Triangle  F, triangle  theHull [] , intTriangle  intHull [ ] , osCoord  theData[] 
{ 

theHull [n] . vlx  =  theData [F. vertex [1] ] .x; 
theHull [n] . vly  =  theData [F .vertex [1] ] .y; 
theHull [n] .viz  =  theData [F.vertex[l ]] .z; 


theHull [n] .v2x  =  theData[F.vertex[2]l.x; 
theHull [n] .v2y  =  theData [F .vertex [2 ]]. y; 
theHull [n] .v2z  =  theData [F .vertex [2 j].z; 


^^Hull  [n]  .  v3x 
^HeHull[n] .v3y 
theHull [n] .v3z 


=  theData [F. vertex [3] ] .x; 
=  theData [F. vertex [3 ]] .y; 
=  theData [F .vertex [3 1 i . z; 


intHull [n] .pi 
intHull [n] .p2 
intHull [n] .p3 


F. vertex [1]  ; 
F .vertex [2]  ; 
F. vertex [3] ; 


n++; 

return (n) ; 


} 
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Figures.  The  Constraint  Set 


Figure  10.  Original  curve  with  16  grid  points 


lijht  point  -  <  30.<2,  30.42,  30.42) 

c^c  point  •  <  30.42,  15.21,  17.76) 

teo  point  -  <  -1.26,  -0.32,  2.60) 


Figure  11.  Wireframe  of  convex  htiU 


point  -  <  30,42.  15.21.  17.78) 
point  -  <  -1.26,  -0.32  ,  2.60) 
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Figure  12.  Convex  hull  with  hidden  surfaces  eliminated 


point  -  <  30.42.  15.21 
SM  point  •  <  -1.26/  -0.32 


Figure  13.  Shaded 


convex  hull:  8  points  on  curve,  16  facets  on  hull 
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Figure  14.  Shaded  convex  hull;  128  points  on  curve,  22  facets  on  hull 


Figure  15.  Test  curve  with  512  grid  points 


t  rolnl  •  (  15.00,  15.00, 
f  point  ■  <  15.00,  7.50. 
»  point  =  <  0,00,  0,2B, 


Figure  16.  Wireframe  of  convex  hull 


Figure  17.  Convex  hull  with  hidden  surfaces  eliminated 


point  •  <  15.00«  7*50 

point  »  (  0,09,  0,28 
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Figure  IS.  Shaded  convex  hiui 


r\  direction 


Points  eye  and  see  are  given  as  input. 

Tne  view  plane  is  defined  to  toe  orthogonal  to  eye,see. 

Tne  point  c  is  defined  to  oe  tne  center  of  tne  view  plane. 

Tne  view  plane  s  y-axis  is  found  Dy  projecting  tne  opject  space  z  axis  PacK  towards  tne  eye  point. 
Tne  view  plane  s  x-axis  is  tnen  perpendicular  to  Poln  eye, see  and  its  y-axis. 


Tne  point  v  can  pe  represented  in  four  different  coordinate  systems: 

1 )  Tne  three  dimensional  opject  space  coordinates. 

2)  The  two  dimensional  view  plane  coordinates. 

3)  The  two  dimensional  device  independent  coordinates,  with  (0,0)  at  the  lower  left  corner  of  the  view 
rectangle  and  ( 1 ,  i )  at  the  upper  right  corner  of  tne  view  rectangle. 

4)  The  two  dimensional  device  dependent  coordinates,  representing  locations  of  pixels  on  tne  computer 
screen. 


Figure  2 


3D  to  2D  Transformation 
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Some  General  Results  Related  to  Equivalence  Classes  of  Composites  in  2D— elasticity 
and  in  the  Theory  of  Plates 

In  the  context  of  the  reported  effort,  a  further  development  was  made  of  an  observation 


[7]  dated  back  to  1984  regarding  the  equivalence  between  strains  arising  in  plates  with  tensors 

2->r  dT,  d  =  const  (see  (36))  of  stiffness. 

A  similar  equivalence  also  holds  for  composite  plates.  Assume,  for  instance,  that 

isotropic  composite  with  moduli  k,;i  is  generated  by  isotropic  constituents  with  moduli 

and  k2,/^2»  respectively.  If  we  now  apply  the  constituents  with  moduli  kj^  —  d,  +  d  and 

k2— d,  fi2  +  d,  d  =  const,  then  the  same  composite  (i.e.  composite  of  the  same  microgeometry) 

will  possess  moduli  k'  =  k  —  d,  /x'  =  /z  +  d.  In  other  words,  the  Young’s  modulus  k'  +  n'  of 

LL  '  *“Ic  ' 

such  composite  will  remain  the  same  as  before  whereas  the  Poisson’s  ratio  = - = 

a'+k' 


=  IL^  -I-  vvill  differ  from  the  original  value  Particularly,  this  means 

fi+d+{k-d) 

that  the  effective  Young’s  modulus  for  an  isotropic  elastic  material  containing  voids  is 
independent  of  the  Poisson’s  ration  of  the  matrix  material  [8].  This  effect  have  been  recently 
observed  by  Day,  Snyder,  Garboczi  and  Thorpe  [9]  as  well  as  by  Thorpe  and  Jasiuk  [10], 
through  numerical  simulation.  Various  extensions  of  this  result  are  about  to  come,  specifically 
in  the  context  of  a  shape  optimization. 
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4  Status  of  the  Research  Effort 

At  this  point  the  mathematical  technique  has  been  developed  making  it  possible  to 
analytically  specify  microstructures  appearing  in  the  optimal  layout  of  materials  for  systems 
described  by  elliptic  equations  of  the  2nd  and  4th  order  with  material  constants  treated  as 
controls.  The  results  obtained  provide  a  theoretical  basis  for  a  subsequent  implementation  of  a 
direct  approach  which  promises  drastic  simplification  in  the  numerical  computation  of  optimal 
layouts.  This  computation  will  then  be  direct,  i.e.  based  on  the  list  of  special  laminar 
microstructures  from  which  the  global  layout  will  be  assembled  with  the  aid  of  standard 
numerical  procedures. 

The  effort  in  its  present  state  has  been  shown  to  provide  bounds  and  microstructures  for 
several  new  situations  never  treated  before.  At  the  same  time,  the  concept  introduced  here  is 
expected  to  apply  to  a  wide  range  of  physical  problems,  including  problems  of  optimal  design. 
For  this  reason,  a  major  theoretical  development  of  this  approach  is  anticipated.  Specifically, 
stemming  from  the  prior  work,  we  expect  to  develop  a  general  theory  of  quasisaddHfication  for 
integrands  depending  on  two  gradients.  More  precisely,  the  necessary  and  sufficient  conditions 
for  the  integrand  guaranteeing  attainability  of  sup  inf  for  functionals  of  the  type  (II)  should 
be  found.  Secondly,  the  extension  of  the  method  to  more  than  one  physical  field,  i.e.  fields  of 
temperature  and  stress,  etc.,  should  be  pursued.  Also,  the  linkage  between  quasisaddHfication 
and  quasiconvexification  should  be  investigated.  All  these  issues  will  be  treated  in  the  sequel 
and  wiU  form  the  content  of  the  renewal  of  this  grant. 
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Volume  27  (1991) 


On  a  General  Concept  in  Optimal  Material  Layout 

K.  A.  LURIE 


Abstract.  The  proposed  paper  is  intended  to  develop  a  methodology 
for  the  determination  of  optimal  structural  charaaeristics  of  elastic 
bodies  designed  for  work  in  a  variety  of  external  conditions  (load, 
static  and  dynamic  regimes,  loss  of  stability),  or  under  the  action  of 
C''moiaed  physical  fields  (stresses  and  temperature,  electric  and  mag- 
..etic  fields,  etc.).  By  the  term  structural  characteristics  we  mean  the 
elastic  constants,  heat  and  electrical  conductances  and  other  similar 
parameters  varying  with  position;  also,  the  problems  of  optimal  dis¬ 
tribution  of  thickness  of  elastic  constructions,  i.e.,  plates  and  shells, 
and  of  holes  and  cavities  in  elastic  bodies  could  as  well  be  formulated 
along  similar  lines.  The  structural  charaaeristics  (controls)  are  in  all 
cases  assumed  to  admit  values  belonging  to  some  admissible  set  U . 

The  cost  (objective)  funaional  is  assumed  to  be  any  weakly  semi- 
continuous  funaional  of  the  solutions  to  the  corresponding  boundary 
value  problem;  also,  it  may  depend  explicitly  on  the  design  parame¬ 
ters.  (The  assumption  of  weak  semicontinuity  is  rather  nonrestrictive; 
it  is  satisfied  for  many  typical  cost  functionals  used  in  practice.)  The 
constraints  are  imposed  on  the  design  parameters  as  well  as  on  the 
variables  charaaerizing  the  system’s  behavior  relative  to  each  physi¬ 
cal  field  considered. 

The  method  of  solution  is  constructive;  it  provides  an  effective 
procedure  of  immediate  transformation  of  optimization  problems  to 
their  relaxed  form,  which  ensures  that  they  are  well-posed,  e.g.,  the 
existence  of  the  optimal  struaural  charaaeristics  (controls).  This 
fundamental  step  has  hitherto  been  committed  with  the  aid  of  the 
so-called  G<losurcs  of  the  original  sets  U  of  admissible  controls. 
Since  the  G-closures  are  known  for  a  very  restricted  set  of  examples 
and  the  construction  of  the  new  ones  provides  substantial  difficulties, 
it  is  impraaical  to  rely  on  them  for  problem  relaxation.  The  tech¬ 
nique  developed  in  this  study  is  intended  to  avoid  any  reference  to 
C-closures  at  all. 
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In  essence,  what  is  really  needed  is  the  specific  relaxation  adapted 
for  the  particular  optimization  problem  considered.  We  propose  be¬ 
low  a  constructive  method  of  such  a  relaxation;  based  on  that  we  also 
propose  a  numerical  procedure,  along  with  a  computer  implementa¬ 
tion  of  the  procedure,  which  will  permit  a  designer  to  find  the  optimal 
materials  layout  and  to  present  a  required  design  in  a  form  convenient 
for  practical  use.  This  new  approach  is  more  feasible  because  it  re¬ 
quires  significantly  less  information  than  the  G-closure  approach. 


Introduction.  The  development  of  the  general  theory  of  structural  op¬ 
timization  has  by  now  passed  through  two  stages.  The  first  period  may 
be  called  naive:  it  has  been  characterized  by  a  firm  belief  in  the  power 
of  the  necessary  conditions  of  optimality  per  se  with  almost  no  regard  to 
the  existence  considerations.  The  necessary  conditions  were  intended 
to  describe  potentially  optimal  regimes,  and  it  only  remained  to  as¬ 
semble  them  to  form  an  optimal  pattern  of  materials.  This  reasoning 
has  also  motivated  the  wide-spread  conviction  that  the  preliminary  dis¬ 
cretization  of  the  problem  combined  with  subsequent  use  of  nonlinear 
programming  would  generally  make  it  possible  to  determine  the  optimal 
control. 

This  entire  concept  has  turned  out  to  be  unjustifiable,  first,  it  has  been 
disproved  by  a  thorough  analysis  of  the  necessary  conditions  [1]  and 
later  by  a  careful  inspection  of  numerical  procedures  associated  with 
the  initial  discretization  [2],  [3]. 

Physically  speaking,  failure  of  a  naive  approach  is  closely  connected 
with  the  remarkable  phenomenon  of  the  appearance  of  microstructures 
in  the  process  of  formation  of  the  optimal  materials  layout.  This  phe¬ 
nomenon  may  be  illustrated  by  the  following  example  related  to  the 
distribution  of  temperature  in  a  heat-conducting  medium. 

Assume  that  we  are  given  two  isotropic  materials  with  differing  heat 
conductances;  the  materials  should  be  placed  in  a  given  domain  O  so 
as  to  maximize  a  certain  functional  associated  with  the  distribution 
of  temperature  caused  by  some  fixed  system  of  sources  under  some 
set  of  boundary  conditions.  For  such  a  functional,  one  may  choose 
the  mean  square  difference  between  the  actual  and  desired  temperature 
distributions,  or  the  heat  flux  across  some  particular  part  of  the  domain’s 
boundary. 

To  obtain  the  required  temperature  distribution,  it  is  necessary  to 
facilitate  the  conditions  for  the  heat  to  flow  in  some  selected  favorable 
direction,  and  to  inhibit  this  flow  along  the  perpendicular  direction;  all 
this  must  be  done  at  every  point  in  the  region.  This  implies  that  the 
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heat  conductance  of  the  required  medium  must  at  every  point  be  depen¬ 
dent  on  direction;  i.e.,  it  must  be  a  tensor  function  of  the  coordinates, 
and  the  material  itself  must  be  anisotropic.  The  difficulty  which  now 
arises  is  that  we  have  no  appropriate  anisotropic  materials  among  the 
originally  given  compounds,  which  are  themselves  isotropic.  The  only 
alternative  is  to  build  the  required  medium  artificially  by  assembling 
some  microstruclure  from  the  given  compounds.  The  simplest  example 
is  provided  by  a  laminate  composite;  its  effective  conductances  along 
and  across  the  layers  differ  from  one  another.  It  must  be  added  that 
the  problem  in  question  does  not  contain  any  parameter  which  might 
restrict  thickness  of  initial  materials  from  below,  e.g.,  the  width  of  lay¬ 
ers  in  a  laminate.  We  must  therefore  expect  that  the  optimal  value  of 
a  functional  will  be  attained  for  an  infinite  partitioning  of  the  domain 
(or  some  part  of  it)  into  parts  occupied  by  various  original  compounds. 
(See  Figure  1.) 


1  "I 

I 

1 


Alternating 
layers  of  tif  and 


Figure  1.  Optimal  materials  layout  for  torsion  problem 


Mathematically,  the  inconsistency  of  a  naive  statement  could  be  made 
evident  by  a  careful  inspection  of  the  set  of  necessary  conditions  of  op¬ 
timality.  Consider  for  example  the  problem  of  torsional  rigidity  of  an 
elastic  prismatic  rod  of  cross-section  5’ ;  its  torsion  rigidity  /  is  equal 
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to 


:i) 


/ 


w  dx , 


,  1  2, 

X  -{x  ,  X  ), 


where  w  denotes  Prandtl’s  function,  i.e.,  the  solution  of  the  boundary 
value  problem 


w 


ds 


=  0, 


(2)  V  ■  D{x)^w  =  -2, 

(3)  D{x)  =  uix)E. 

Here,  u{x)  denotes  the  elastic  compliance  of  the  rod’s  material  at  the 
point  X  €  S ,  and  E  denotes  a  unit  tensor. 

It  is  necessary  to  choose  the  function  u{x)  so  as  to  maximize  the 
rigidity  /  of  a  rod  if  the  mean  value  Uq  of  its  elastic  compliance  and 
the  interval  [«j ,  Wj]  of  admissible  values  of  u{x)  are  fixed: 

(4)  u^<u(x)<u^, 
j  u{x)  dx  =  Uq  meas(5') , 


(5) 


0  <  U,  <  «o  < 


(6) 

This  problem  has  been  examined  in  [4]  where  it  has  been  shown 
that  the  necessary  condition  of  Weierstrass  requires  that  the  optimal 
layout  can  only  include  the  limiting  values  m,  and  Uj  of  compliance 
in  accordance  with  the  rule 


M  =  M,,  if  (Viy)  >  > 

^2 


(7) 

(8)  m  =  Mj,  if  (Vti))‘ < 

Here,  the  constant  k  >  0  denotes  the  Lagrange  multiplier  associated 
with  the  integral  constraint  (5). 

Because  Mj/wj  <  1 ,  from  (7),  (8)  we  deduce  that  none  of  the  sta¬ 
tionary  regimes  can  be  optimal  provided  that  the  values  (Vw)"  belong 
to  the  banned  interval  {kuJu2,ku.^Iu^).  On  the  other  hand,  those 
parts  of  5  which  are  occupied  by  m,  and  Wj  materials  are  separated 
by  some  line  F  with  normal  n  and  tangent  t  ;  across  this  line,  the 
value  of  (Vu;)^  suffers  a  jump.  The  latter  can  be  determined  from  the 
continuity  conditions 


(9) 

(10) 


[Vio  t],  =  0, 
[uViu  •  n]?  =  0, 


where  [•],  =  [  Ij  -  [•],  denotes  the  jump  of  a  quantity  within  the  square 
brackets. 
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From  inequality  (7)  taken  at  some  point  close  to  F  on  that  side  of 
r  where  u  =  u^  we  deduce  (bearing  (9),  (10)  in  mind)  that 

(11)  ;c  <  ^[(Viu)-],  =  "^[{Vw)-],  +  [Vw  .  tf  f  ^  . 

“2  “l  \  “2  “l  / 

The  latter  condition  can  be  made  compatible  with  inequality  (8)  only 
provided  that 

(12)  Viu-t  =  0. 

Both  inequalities  (7),  (8)  are  then  fulfilled  as  strict  equalities  on  each 
side  of  r . 

The  latter  curve  should  thus  satisfy  both  conditions  (7)  and  (8)  si¬ 
multaneously;  this  makes  the  problem  of  finding  it  overdetermined  and 
therefore  contradictory.  Formally,  the  situation  is  as  if  the  position  of 
this  curve  and  its  slope  were  to  be  determined  each  from  a  separate  in¬ 
dependent  equality.  Such  a  problem  is  known  to  be  unsolvable  in  a  class 
of  smooth  curves.  One  may  expect  that  the  solution  might  exist  among 
the  generalized  curves  whose  windings  would  be  dense  within  a  set  of 
nonzero  measure.  The  correct  layout  is  in  fact  illustrated  in  Figure  1 . 

The  latter  observation  has  found  support  in  the  analysis  of  numerical 
data  associated  with  the  attempts  to  apply  nonlinear  programming  to  the 
originally  discretized  venion  of  the  optimization  problem.  The  numer¬ 
ical  procedure  has  failed  to  display  any  evidence  of  convergence;  rather, 
it  has  demonstrated  fast  oscillating  behavior  of  the  materials’  layout.  In¬ 
creasing  the  accuracy  of  the  calculations  and  refining  the  discretization 
may  lead  to  a  substantial  instability  resulting  in  a  completely  different 
pattern.  These  observations,  [2],  [3],  have  shown  that  the  computational 
procedure  should  be  chosen  in  accordance  with  existence  considerations 
which  could  be  the  only  ones  to  guarantee  necessary  convergence  of  a 
numerical  scheme. 

In  the  course  of  successive  approximations  to  the  optimal  pattern,  the 
so-called  chattering  regimes  of  control  have  been  discovered  to  appear. 
Applied  to  problems  like  those  described  above  (and  many  related  ones 
containing  controls  in  coefficients,  see  equation  (2))  this  implies  the  ap¬ 
pearance  of  infinitely  many  small  zones  occupied  by  different  regimes  of 
control  (i.e.,  by  different  materials).  The  interfaces  of  such  subregions 
form  a  set  which  is  dense  within  some  well-expanded  part  of  the  orig¬ 
inal  domain.  In  this  specific  sense,  we  could  speak  about  generalized 
curves  separating  the  two  types  of  material.  This  is  nothing  but  a  real¬ 
ization  of  an  old  idea  by  L.  C.  Young,  [5],  applied  to  the  specific  type  of 
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problems  considered  here.  Such  a  layout  is  nothing  but  what  has  been 
identified  above  as  a  microstructure;  we  have  thus  justified  numerically 
the  physically  expected  distribution  of  controls. 

The  chattering  regimes  appear  almost  inevitably  whenever  we  attempt 
to  build  up  the  optimal  layout  of  two  or  more  materials.  This  is  be¬ 
cause  the  multidimensional  problems,  e.g.,  problems  related  to  rods, 
plates,  shells,  and  three-dimensional  bodies,  are  associated  with  vector 
and  tensor  fields  (currents,  strain,  stress,  etc.),  and  the  corresponding 
optimization  problems  are  concerned  with  the  optimal  formation  of 
such  fields.  The  latter  are  associated  with  one  or  more  advantageous 
directions  at  each  point;  for  this  reason,  to  provide  an  effective  control, 
we  need  a  certain  type  of  anisotropic  medium,  and  this  is  generally  not 
at  the  designer’s  disposal.  To  form  it  up,  one  has  to  introduce  chat¬ 
tering  regimes,  and  this  is  what  really  happens  when  we  construct  a 
minimizing  sequence  of  controls. 

In  other  words,  the  chattering  regimes  appear  whenever  the  origi¬ 
nal  set  of  admissible  controls  does  not  contain  the  required  anisotropic 
medium;  mathematically,  we  say  that  this  set  does  not  possess  some 
specific  type  of  closure  property.  Applied  to  the  optimization  problems 
considered  here,  it  means  that  the  set  of  admissible  controls  should  in¬ 
clude,  along  with  the  original  constituents,  all  the  composites  assembled 
from  them.  This  new  set  of  controls,  emerging  from  the  original  set  U , 
is  called  the  G-closure  of  U  and  designated  GU  (see  [7]  where  this 
notion  was  first  introduced).  The  set  U  is  called  G-closed  if  U  =  GU; 
generally,  U  is  contained  in  GU .  In  many  applications,  the  origi¬ 
nal  sets  U  of  controls  are  not  G-closed,  and  the  problem  arises  of 
constructing  their  G-closures.  For  a  number  of  important  examples, 
mostly  associated  with  the  second-order  operator  V  ■  mV  ,  G-closures 
have  been  built  explicitly,  [8]-[19].  Associated  with  this  problem  is  the 
second  stage  of  the  theory’s  development.  The  reason  is  that  the  optimal 
control  generally  belongs  to  GU  rather  than  to  G .  In  other  words,  the 
necessary  conditions  of  optimality,  among  them  the  Weierstrass  condi¬ 
tion,  would  now  be  noncontradictory  provided  that  the  admissible  set 
U  of  controls  coincides  with  its  G-closure. 

This  approach  will  be  illustrated  by  an  example  from  the  theory  of 
heat.  Consider  the  following  problem  of  optimal  control  [6]. 

We  consider  a  plane  rectangultir  domain  {-a  <>:<«, 0<y<  1) 
(see  Figure  2;  note  that  line  segments  dividing  the  regions  in  this  figure 
might  in  fact  be  curved  arcs).  Across  its  upper  boundary  F,  (y  =  1) 
there  flows  a  uniform  flux  of  unit  intensity,  and  other  parts  of  the  bound- 
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heat  tlux  entering  Pi 

I  I  I  I  I  I  I  i  1  I  I  I  I  I  i 


Figure  2.  Heat  flux  being  focused  towards  a  window 


ary  are  either  thermoisolated,  i.e.,  free  of  heat  flux  (these  parts  will  be 
designated  by  F^) ,  or  the  temperature  along  them  will  be  kept  equal  to 
zero  (such  parts  will  be  denoted  by  Fj) .  The  temperature  distribution 
is  assumed  to  depend  only  on  the  coordinates  x,y .  The  domain  is 
occupied  by  two  isotropic  materials  whose  specific  thermal  conductiv¬ 
ities  are  given  by  u_  and  respectively,  with  Q  <  u_  <  <  x . 

The  temperature  distribution  can  be  found  from  the  boundary  value 


problem 

(13) 

q  =  -D{x,y)-VT, 

(14) 

<1 

11 

0 

(15) 

D{x ,  y)  =  lM_;i:_(x ,  y)  +  u^x4^ .  y)]E , 

(16) 

q  •  n  =  - 1  on  F, , 

(17) 

q  ■  n  =  0  on  F2 , 

(18) 

T  =  0  on  Fj , 

where  n  denotes  a  unit  vector  along  the  outer  normal  to  the  boundary, 
E  a  unit  tensor  and  characteristic  functions  of  the  subdomains 

5_  and  of  5  occupied  by  the  u_  and  materials,  respectively. 


(19) 


x+{x,y)  = 


1  if  (x ,  y)  e  57 , 

0  if(x,y)^5;. 

We  desire  to  distribute  the  materials  in  such  a  way  that  the  functional 


(20) 


=  f  ^(F)q  n(F)rfF 


attains  its  maximum  value.  Here,  ^(F)  denotes  a  weight  function,  and 
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might  be  chosen,  for  instance,  so  as  to  “focus”  the  heat  flux  onto  some 
portion  of  Tj . 

Particularly,  if  this  function  is  given  by 


(21) 


P(r) 


if  (x,  y)  e  Tq  C  Tj 
if  [x,y)i  Tq 

then  the  problem  reduces  to  that  of  maximization  of  a  heat  flux  through 
the  “window”  Fq  on  the  boundary  of  a  plane  domain.  (See  Figure  2.) 

To  determine  the  optimal  distribution  of  materials,  we  will  introduce 
the  G-closure  of  a  set  U  of  controls;  the  latter  is  defined  here  as 


(22)  U  =  {u_,u^}. 

The  GU-set  is  the  set  of  tensors  Z)q  =  of  effective  heat 

conductances  of  all  composites  assembled  from  the  elements  of  U .  The 
invariant  description  of  GU  is  given  below  by  the  following  inequalities 
[12],  [14]  (see  hatched  region  in  Figure  3): 

(23)  u  <  d.  < - — j-  <  d-,  <  u,. 

Particularly,  for  d^  =  u_u_^l{u_  +  u^-  d^)  we  have  laminates  as  ele¬ 
ments  of  GU . 


In  order  to  maximize  the  value  of  /  we  should  choose  among  the  el¬ 
ements  of  GU  the  corresponding  composites  to  be  placed  at  each  point 
of  the  domain.  In  other  words,  we  have  to  find  the  proper  point  (Aj ,  Aj) 
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within  the  figure  in  the  id^ ,  ii2)-plane  restricted  by  a  set  of  inequalities 

(23) ,  as  well  as  the  angle  (/>  which  characterizes  the  orientation  of  the 
unit  vectors  Cj  and  : 

(24)  e,  =  icosg)  4- jsin^, 

(25)  Cj  =  -i  sin  <9  4-  j  cos  g>. 

The  original  problem  (13)-(21)  should  now  be  reformulated;  instead 
of  equations  (13),  (14)  we  must  use  the  relationships 

(26)  q  =  -D^ix,y)-VT,  Vq  =  0, 

with  Dq{x,  y)  subject  to  the  inequalities  (23). 

Making  use  of  the  conventional  procedure  of  the  calculus  of  varia¬ 
tions  we  now  introduce  the  augmented  functional 

(27)  7  =  ^  p(r)q  n(r)dr  +  jj^XV  -DQ-VTctcdy 

where  X  =  X{x ,  y)  is  the  Lagrange  multiplier,  taking  into  account  the 
heat  equation 

(28)  VZ)(j-Vr  =  0. 

The  conjugate  system  for  X  is  written  down  in  the  form 

(29)  V-f?oVA  =  0, 

(30)  n  •  Dg  ■  VA  =  0  along  F,  and  F^ , 

(31)  A  =  p(F)  along  F3, 

The  necessary  conditions  show  that  the  second  inequality  (23)  must 
in  fact  be  an  equality;  in  other  words,  stationary  composites  may  only  be 
laminates.  If  we  denote  by  2/  the  angle  between  the  vectors  VF  and 
VA  then  the  necessary  conditions  dictate  the  following  classification  of 
regimes: 

(32)  A,  =  A^  =  if  tan;c  <  yjuju^, 

(33)  A,  =A2  =  m_  if  1201  x> \ftju~, 

(34)  u^u_ld]  =  tan^ x  if  \/u_lu^  <taax< 

The  optimal  distribution  of  materials  is  thus  characterized  by  a  zone 
of  highly  conducting  material  provided  that  the  directions  of  the 
gradients  VA  and  VF  are  close  to  each  other,  by  a  zone  of  low  con¬ 
ducting  u_  material  if  these  directions  are  almost  antiparallel,  and  by 
a  zone  of  anisotropic  laminate  if  the  vectors  are  almost  perpendicular 
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to  each  other  (see  Figure  2).  Within  this  latter  zone,  the  layers  bisect 
the  angle  between  the  two  gradient  vectors;  the  optimal  laminate  tends 
to  rotate  the  vector  of  heat  flux  to  maximum  possible  extent. 

One  can  observe  that  for  a  relaxed  statement  we  obtain  three  regimes 
of  control  instead  of  two,  as  in  a  naive  formulation  of  the  problem.  The 
new  regime  (34)  is  associated  with  a  composite  buili  from  the  original 
components.  The  domain  filled  in  by  a  composite  corresponds  to  the 
interval  (^_/u_^,  of  tan;i'  which  was  prohibited  in  the 

nonrelaxed  formulation. 

This  example  illustrates  how  the  optimal  control  could  be  evaluated 
provided  that  the  GC/-set  has  already  been  constructed  starting  from  a 
given  C/-set. 

Such  a  construction  of  GU  is  itself  a  difBcult  problem;  it  has  been 
solved  only  for  a  few  examples  (almost  all  of  which  are  listed  in  [6]). 
Describing  (/-closure  is  the  same  as  describing  a  body  in  the  space  of 
invariants  of  the  tensor  of  effective  constants  characterizing  all  possi¬ 
ble  composites  assembled  from  the  original  elements  in  the  £/-set.  The 
space  of  invariants  can  itself  be  high-dimensional;  its  dimensionality 
equals  1 8  for  a  general  tensor  of  elastic  constraints  in  three-dimensional 
problems.  The  body  in  question  should  have  as  its  boundary  a  manifold 
in  17  dimensions.  Above  that,  this  manifold  will  be  piecewise  continu¬ 
ous,  since  various  parts  of  it  are  described  in  different  analytical  terms. 
In  summary,  one  will  arrive  at  the  conclusion  that  the  use  of  G-closures 
for  obtaining  analytical  information  about  optimal  regimes  is  far  from 
being  practical. 

At  the  same  time,  for  many  applications  there  is  no  need  to  know  the 
C-closure  in  full.  If  an  elastic  body  is  subjected  to  some  fixed  system 
of  loads,  then  with  a  corresponding  optimal  design  we  shall  associate 
some  well-defined  field  e  of  strain.  The  tensor  D  of  elastic  constants 
enters  the  problem  only  through  Hooke’s  law  a  -  D  e,  e.g.,  through  its 
projection  along  the  strain  e .  We  therefore  need  not  know  the  entire 
tensor  D ;  rather  we  require  some  linear  combination  of  its  components. 
For  this  reason  one  could  look  for  a  method  of  relaxation  which  would 
provide  us  with  exactly  the  required  combination,  mthout  any  reference 
to  G-closure  since  this  set  is  not  necessary  for  our  specific  purposes.  We 
will  see  that  this  will  be  associated  with  a  substantial  reduction  in  di¬ 
mensionality  and  therefore  will  leave  more  computational  resources  for 
considering  more  sophisticated  problems,  e.g.,  those  involving  a  variety 
of  external  conditions. 
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New  approach  [20|.  This  approach  will  be  illustrated  by  the  same  ex¬ 
ample  as  used  to  explain  the  G-closure  approach.  This  time,  however, 
we  will  not  refer  to  the  G-closure  given  in  this  specific  case  by  inequal¬ 
ities  (23). 

We  start  with  a  reformulation  of  the  constrained  optimization  prob¬ 
lem  (13)-(21)  in  terms  of  a  max-min  control  problem.  Introducing  the 
Lagrange  multiplier  A(jc ,  y)  corresponding  to  the  equation  V  D  VT  = 
0  it  is  easy  to  show  that  the  problem 

(35)  sup/ 

U 

under  the  additional  constraints  (13)-(18)  is  equivalent  to 

(36)  sup  inf/ 

u,T  i 

under  the  side  conditions  (18)  and 

(37) 

Here,  the  functional  /  is  defined  as 

(38)  J  j'  X{x,l)dx  + juVXVTdxdy. 

For  the  functional  (38)  we  will  construct  two  types  of  estimates. 
The  upper  estimate  will  be  built  with  the  aid  of  a  special  mathemat¬ 
ical  technique,  i.e.,  the  combination  of  a  preliminary  estimate  of  the 
type  sup  inf  /  <  inf  sup  / ,  followed  by  an  additional  estimate  based 
on  a  new  transform  of  the  integrand.  This  transform  provides  a  new 
function  which  is  pointwise  greater  than  or  equal  to  the  original.  We 
have  specifically 


sup  inf  /  =  sup  sup  inf  /  <  sup  inf  sup  J 

u.T  ^  T  U  ^  r  a 


(39) 


(40) 


=  supinf  -/  X{x,  \)dx+  f  G{VT,VX)dxciy 
T  ^  [  J-l  Js 


here  we  introduced  the  notation 

(41)  i  =  r,  =  VA. 
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Inequality  (39)  will  be  strengthened  if  we  apply  the  transform 

G"(^,  tf)  =  supsupinf{a  (*  +  i)  - +  -<^2??,) 

(42)  " 

-  inf supfa ■i  +  b-ri  +  A{<^^ 7:  - ^2'?! )  ~ 


and  use  the  property 
(43) 


G'\^,ri)>G{^,n) 


which  is  valid  provided  that  (7(iJ ,  rj)  is  convex  in  the  ^/-variable  (which 
is  the  case  for  the  specific  function  (40)). 

The  calculation  shows  that 


(44)  G'\i,ri)=^\m 


U^coslx,  0  <  tan;f  <  yjuju^, 
[u^^ujcos^ X  -  y/u^sialx, 

\fuJK  ^ 

u_  cos  2x ,  y/w^/u_  <  tan  ;i'  <  00. 


Here,  2x  denotes  the  angle  formed  by  the  vectors  =  VT  and  »;  = 
at  the  corresponding  point  (x ,  y) . 

It  can  be  checked  directly  that  the  inequality  (43)  holds.  We  arrive 
at  the  inequality 


(45)  sup  inf  J  <  sup  inf 
u.r  *  r  ^ 


Xix,  l)dx  +  j^G*‘('7T,  Vk)dxdy 


which  is  the  required  upper  bound. 

On  the  other  hand,  the  functional  sup^  j-  inf;^  J  may  be  estimated 
from  below  if  we  evaluate  it  for  some  specific  microstructure;  let  Dq  ~ 
+<^2^2^:  ^  tensor  of  its  effective  heat  conductances.  Assume 
that  Dq  is  chosen  according  to  the  following  rule;  (a)  for  0  <  tan  ;>;  < 

yjujul  we  set  =  u^E  (pure  material),  (b)  for  yjuJxT  < 
tanji;  <  oc  we  set  Dq  =  u_E  (pure  u_  material),  and  (c)  for  yju_lu^ 

<  tan/  <  y/u^/M_  we  apply  a  layered  composite  whose  tensor  has 
eigenvalues 

(46)  rf,  =[mu~' +(1 -m)Ml‘]~'. 

(47)  d2  =  mu_^  +  {\  -  m)u_. 


and  where  the  eigenvector  ej  bisects  the  angle  2/  between  VT  and 
.  The  concentration  m  in  the  latter  case  will  be  chosen  in  accordance 
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with  the  rule 

(48)  u^u_/ci^  =  tan"  X- 


Now  we  have  to  use  the  integrand  VT  Dq  -VX  instead  of  uVT •  VA 
in  the  original  setting;  we  have  finally 
(49)  _ 


u_^cos2x,  Q  <  tan X  <  sJuZju^, 
{u^^u_)cos-x  -  ^/KuZ^inlx, 

yJtTJul  <  tan;f  <  ^uju_, 
u_co%lx,  yjuju~  <tz.nx  <x- 


Comparing  this  with  (44)  we  see  that  the  two  bounds,  upper  and  lower, 
of  the  functional  sup^  j  inf^  J  are  coincident,  which  means  that  the 
desired  supremum  is  attained  and  is  equal  to 


(50) 


max  min 

T  X 


/ 


G"{VT,  Vk)dxdy 


One  can  see  that  the  variety  of  optimal  regimes  offered  by  (44)  does 
not  differ  from  that  provided  by  (32)-(34),  the  latter  deduced  from  the 
explicit  formulas  (23)  for  a  G-closure.  In  other  words,  both  procedures 
lead  to  the  same  results  when  applied  to  a  specific  problem  of  optimiza¬ 
tion. 


Other  applications.  The  direct  approach  developed  here  can  be  ap¬ 
plied  to  a  wide  class  of  optimal  design  problems.  In  this  respect,  special 
mention  should  be  made  of  elastic  rods,  plates,  and  shells  as  the  most 
widely  used  constructive  elements.  For  all  these,  the  spatial  distribution 
of  materials  possessing  different  values  of  elastic  moduli  presents  a  very 
effective  controller.  For  plates  and  shells,  a  similar  role  is  played  by  the 
distribution  of  thickness  along  their  midsurfaces.  The  latter  problems 
could  equally  well  be  associated  with  the  desire  to  save  as  much  material 
as  possible.  The  total  cost  of  material  used  is  also  of  great  importance; 
a  strong  material  is  often  more  expensive  than  a  weak  one,  and  one 
may  wish  to  make  the  combined  construction  be  the  strongest  of  all 
affordable.  There  is  little  physical  intuition  concerning  optimal  distri¬ 
butions  of  materials  or  thickness  along  the  midsurfaces  of  plates  and 
shells.  The  experience  already  gained  (much  of  it  having  come  directly 
from  engineering  practice)  shows  that  such  designs  are  characterized  by 
the  formation  of  microstructures,  e.g.,  grillage — like  systems  of  ribs  for 


314 


K.  A.  LURIE 


a  plate  of  variable  thickness.  Structural  parameters  of  these  systems, 
their  topology  and  orientation,  should  be  determined  in  the  course  of 
optimization. 

The  new  approach  described  above  can  specifically  be  applied  to  these 
types  of  problems,  and  essentially  speaking,  this  is  the  only  approach 
which  may  then  be  suggested,  because  for  most  of  these  problems,  G- 
closures  of  the  typical  [/-sets  are  unknown.  We  could  also  work  with 
a  fairly  broad  range  of  cost  functionals,  among  them  all  functionals 
which  are  weakly  continuous  in  the  corresponding  Sobolev  spaces.  It 
is  also  very  important  that  the  dimensionality  of  spaces  to  be  used  in 
the  process  of  obtaining  a  solution  (be  it  analytical  or  numerical)  be 
the  same  as  the  dimensionality  of  the  space  of  dependent  variables, 
not  of  the  invariant  space  of  the  elements  of  G-closures.  In  the  heat 
problem  described  above,  this  distinction  was  unimportant  (we  had  the 
two-dimensional  space  of  invariants  of  a  planar  ZJ^-tensor  and  the  two- 
dimensional  space  of  Vr-vectors).  For  the  plate  problem,  however,  the 
difference  will  be  great:  the  invariant  space  of  D^-tensors  will  be  five¬ 
dimensional,  and  the  space  of  strain  terms  e  only  three-dimensional; 
for  general  elasticity  the  difference  will  already  be  striking:  eighteen  for 
the  D(j-tensor  and  six  for  strain. 

This  reduction  in  dimensionality  makes  it  possible  to  take  into  ac¬ 
count  a  variety  of  external  conditions  under  which  the  same  construc¬ 
tive  elements  may  be  designed  to  work.  Applied  to  aircraft  elements, 
for  example,  this  idea  may  permit  us  to  handle,  along  with  the  regime 
of  static  equilibrium,  also  the  failure  of  stability  (static  and  dynamic), 
additional  restrictions  upon  the  spectrum  of  eigenfrequencies,  etc.  Also, 
one  could  allow  for  the  analysis  of  optimal  design  of  constructive  ele¬ 
ments  with  regard  to  a  combination  of  physical  fields,  e.g.,  the  fields 
of  stress  and  temperature,  which  is  particularly  important  for  work  in 
extremal  conditions. 

Extensions  of  the  theory.  There  are  fundamental  mathematical  is¬ 
sues  which  are  still  unsolved  and  which  are  closely  related  to  the  new 
approach.  The  fact  of  coincidence  of  two  types  of  estimates  reflects  the 
property  of  the  transformed  integrand  to  be  attained  with  the  aid  of 
some  specific  material  microstructure.  Mathematically  speaking,  this  is 
the  case  when  the  solution  of  the  sup-inf  form  exists  and  coincides  with 
the  value  of  the  max-min  form.  The  fundamental  problem  of  general 
kind  which  arises  is  that  of  necessary  and  sufficient  conditions  of  exis- 
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tence  of  solution  to  the  sup-inf  type  of  variational  problem  in  the  case 
of  many  independent  variables.  It  is  well  known  that  the  saddle  point 
type  of  behavior  of  the  integrand  is  sufficient  for  existence  [21].  At  the 
same  time,  the  above-mentioned  example  shows  that  this  property  is 
not  necessary  and  could  allow  weaker  restrictions  on  the  behavior  of 
the  integrand.  In  other  words,  that  means  that  the  class  of  functions 
which  are  good  from  the  point  of  view  of  existence  is  wider  than  that 
of  saddle  functions.  The  situation  which  arises  here  is  very  similar  to 
that  encountered  in  the  analysis  of  nonconvex  minimization  problems 
in  many  independent  variables  [22].  Applied  to  these  problems,  the 
method  of  two-sided  estimates  has  also  demonstrated  its  effectiveness. 
In  the  latter  context,  ordinary  convexity  of  the  integrand  was  sufficient 
for  existence  of  the  minimum  but  by  no  means  necessary,  and  the  class 
of  functions  providing  the  minimum  was  wider  than  that  of  the  convex 
functions  alone.  In  the  absence  of  convexity  the  method  of  estimates 
worked  well:  the  upper  estimate  being  provided  by  some  microstruc¬ 
ture,  and  the  lower  estimate  being  provided  by  the  polyconvexification 
transformation  [22]  which  played  the  role  of  transformation  (42).  The 
following  observation  seems  to  be  remarkable:  convex /unctions  stay  un¬ 
changed  when  subjected  to  the  polyconvexification  transformation.  The 
same  phenomenon  is  observed  with  regard  to  saddle  functions  if  we 
subject  them  to  transformation  (42).  For  these  reasons,  the  fact  of  co¬ 
incidence  of  two  types  of  estimates  in  the  sup-inf  context  seems  to  be 
not  accidental,  but  rather  it  expresses  the  property  of  the  transformed 
integrand  to  satisfy  necessary  and  sufficient  conditions  of  sup-inf  type 
to  be  attained.  Continuing  this  analogy  between  this  approach  and  that 
of  quasiconvexification,  we  could  argue  that  the  transformed  integrand 
plays  the  same  role  as  the  quasiconvex  envelope  of  the  integrand  in  the 
problem  of  nonconvex  minimization. 

The  problem  consists  of  developing  strict  mathematical  theory  of  ex¬ 
istence  of  solution  of  min-max  variational  problems  with  nonsaddle  in¬ 
tegrands  in  the  case  of  many  independent  variables.  A  notion  similar  to 
quasiconvexity  should  be  outlined  and  examined.  Connections  must  be 
described  between  this  notion  and  the  behavior  of  the  original  function 
with  regard  to  the  passage  to  weak  limits  of  the  arguments  (a  prop¬ 
erty  similar  to  that  of  weak  lower  semicontinuity).  This  investigation 
could  be  carried  out  in  a  broader  context  than  merely  optimization;  the 
original  function  is  not  necessarily  produced  by  some  optimal  control 
problem. 
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Development  of  computer  software.  We  now  consider  the  computa¬ 
tional  aspects  of  the  new  approach.  Formally  speaking,  the  basic  oper¬ 
ations  associated  with  the  transformation  (42)  include  construction  of 
a  convex  hull  of  some  original  set  in  the  space  of  dependent  variables. 
This  set  can  be  fairly  arbitrary;  for  the  plate  problem,  for  example, 
it  could  be  a  segment  of  some  smooth  curve  in  three  dimensions,  the 
curve  being  described  in  analytical  terms.  The  convex  hull  of  this  orig¬ 
inal  curve  is  some  body  in  three-space.  The  surface  of  this  body  is 
piecewise  smooth,  but  might  also  possess  vertices,  edges,  etc.  All  of 
these  types  of  features  allow  an  immediate  interpretation  in  terms  of 
microstructures  associated  with  the  corresponding  layout  of  materials, 
and  for  this  reason  it  is  important  to  build  up  the  convex  hull  in  full 
detail.  This  construction  of  the  convex  hull  is  the  main  diflSculty  to  be 
overcome  by  the  development  of  software.  More  specially,  the  various 
types  of  points  on  the  surface  of  the  convex  hull  are  each  to  be  set  in 
correspondence  with  composites  of  various  specific  microstructures.  The 
purpose  of  the  overall  analysis  is  to  provide  an  exhaustive  classification 
of  all  possible  cases  which  might  arise  in  this  connection.  Formally 
speaking,  this  classification  will  come  as  a  result  of  solving  a  purely 
geometrical  problem 

(51)  supbrj 

bGB 

where  rj  is  some  unit  vector  (which  plays  the  role  of  a  parameter)  in 
the  space  of  dependent  variables,  and  B  denotes  the  above-mentioned 
convex  hull.  The  unit  sphere  swept  out  by  the  ^-vectors  is  to  be  parti¬ 
tioned  into  sections  associated  with  various  types  of  points  b  extremal 
in  the  sense  of  (5 1).  (These  points  might  be  smooth,  edge  points,  vertex 
points,  etc.)  The  classification  mentioned  above  is  not  immediate,  since 
each  of  these  types  of  points  is  connected  with  some  well-specified  mi¬ 
crostructure.  At  this  point,  then,  the  software  to  be  developed  will  have 
computed  the  supremum  over  b  in  Equation  (42).  The  next  compu¬ 
tational  step  would  be  to  compute  the  outer  supremum,  the  supremum 
over  A  in  (42).  Typically,  this  will  be  a  low-dimensional  optimization 
problem.  Note,  however,  that  the  computation  (51)  needs  to  be  carried 
out  for  each  evaluation  of  the  objective  function  in  this  new  (outer) 
optimization  problem,  making  the  combined  problem  computationally 
intensive.  Finally,  given  the  classification  of  a  regime,  the  computa¬ 
tion  of  the  materials  layout  is  a  standard  problem  for  which  algorithms 
already  exist  [23]. 
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The  software  to  be  developed  will  perform  the  following  tasks.  Given 
a  curve  in  three  dimensions  (either  in  parametrized  or  numerical  form) 
the  software  will  render  this  curve  graphically.  It  will  then  compute  and 
display  the  convex  hull  of  this  curve.  The  user  will  be  able  to  rotate  this 
image  in  three  dimensions  in  real  time,  so  as  to  understand  the  qual¬ 
itative  nature  of  the  hull  (and  thus  the  classification  of  the  composite 
regimes).  Also,  given  a  unit  direction  vector  rj ,  the  software  will  dis¬ 
play  cross  sections  of  the  convex  hull  which  are  perpendicular  to  rj ; 
the  software  will  also  find  the  extreme  values  of  b  for  which  the  cross 
sections  are  tangential  to  the  convex  hull.  Given  these  values  of  b ,  and 
so  likewise  knowing  the  points  of  intersection  p  of  the  cross  sections 
with  the  convex  hull,  the  software  will  categorize  the  points  p  as  being 
on  the  smooth  surface  of  the  hull,  or  on  an  edge,  or  on  a  vertex,  etc. 
Next,  the  software  will  perform  a  low-dimension  optimization  problem, 
essentially  reshaping  the  convex  hull,  so  as  to  maximize  the  values  of 

SUp6-7  +  ^(‘Jl>?2-<J2'/l) 

tea 

as  A  varies.  The  software  will  then  carry  out  this  computation  as  r} 
sweeps  out  the  unit  sphere,  and  so  we  will  have  a  complete  classification 
of  the  regimes. 

While  convex  hulls  have  been  studied  and  used  extensively  in  math¬ 
ematics,  algorithms  for  actually  computing  huUs  eflBciently  have  not  re¬ 
ceived  as  much  attention,  due  possibly  to  a  previous  lack  of  practical 
applications.  Computation  of  convex  bulls  in  two  dimensions  have  been 
studied,  [24],  [25],  [26],  but  the  problem  in  three  dimensions  has  only 
recently  gained  attention.  From  a  computational  standpoint,  then,  this 
is  the  least  understood  aspect  of  the  total  new  approach  to  materials 
layout.  Note  that  the  issue  here  is  not  the  difficulty  of  computing  the 
hulls,  since  there  are  many  intuitive  approaches  which  can  be  used,  but 
computing  the  hulls  efficiently.  That  is,  if  we  discretize  the  parametriza- 
tion  of  the  original  curve  with  N  grid  points,  then  naive  approaches  to 
computing  the  convex  hull,  such  as  using  the  geometric  definition,  have 
a  computational  complexity  of  0{N^) .  Typically,  N  would  be  quite 
large,  making  computation  of  the  hull  time  consuming  when  using  naive 
algorithms,  and  so  defeating  attempts  to  generate  real-time  images,  or 
to  perform  the  optimization  (42)  in  reasonable  time. 

The  other  computational  aspects  of  the  new  approach  are  better  un¬ 
derstood.  Determining  the  extremal  values  for  6  is  a  fairly  standard 
problem  in  nonlinear  programming,  albeit  one  still  requiring  some  care 
in  solving.  Likewise,  the  computation  of  the  supremum  over  A  can 
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be  cast  in  a  standard  way  as  a  problem  in  nonlinear  programming;  this 
would  not  take  into  account,  however,  any  special  structure  in  the  outer 
optimization  problem  due  to  the  special  nature  of  the  objective  func¬ 
tion  (51).  Rendering  the  image  of  the  hull,  of  course,  would  involve 
standard  techniques  from  computer  graphics. 

Significance  of  research.  In  Figures  4,  5,  and  6  we  illustrate  the  spe¬ 
cific  optimization  procedures  associated  with  the  naive,  G-closure,  and 
new  approaches,  respectively.  For  practical  considerations  it  is  impor¬ 
tant  to  obtain  some  suboptimal  layouts;  that  is,  those  characterized  by 
some  simple  types  of  internal  geometry  which  could  be  realized  in  prac¬ 
tice.  (In  this  context  simple  means  depending  on  some  finite  number  of 
structural  parameters.)  Once  the  ideal  (optimal)  solution  is  known,  we 
can  introduce  some  kind  of  cost  functional  to  estimate  the  difference 
between  the  optimal  and  suboptimal  solution.  This  provides  the  basis 
for  evaluating  the  best  approximation  to  the  optimal  layout  which  could 
be  achieved  with  the  aid  of  available  simplified  microstructures. 

In  summary,  we  can  say  that  the  proposed  (new)  approach  provides 
a  practical  (as  compared  to  G-closure)  yet  systematic  (as  compared  to 
naive)  methodology  to  handle  layout  problems  arising  in  applications. 


Figure  4 
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Abstract.  The  paper  suggests  a  procedure  of  direct  construction  of  minimal 
extension  of  constrained  optimization  problem  for  a  three  dimensional  heat  equation 
containing  controls  in  coefficients.  For  a  two  dimensional  case,  this  approach  has 
been  initiated  in  Ref.  1. 


1.  Introduction.  We  consider  nonselfad joint  optimization  problems  for  a 
system  of  equation  in  a  three  dimensional  region  V 

q  =  •  VT,  V  •  q  =  0  (1) 

where  T  =  T(x,y,z)  denotes  the  temperature  and  the  tensor  7  =  7(x,y,z)  of  heat 
conductance  plays  the  role  of  control.  The  set  U  of  admissible  values  of  D 
includes  two  elements  (materials): 

U  =  (T  =  u_^E,  T)_  =  u_E,  E  =  ii  +  jj  +  kk}.  (2) 

It  is  required  to  find  the  distribution 

^(x,y,2)  =  Xi(x,y,z)2’^  + 

of  a  heat  conductance  tensor  throughout  V  which  maximizes  some  weakly 
continuous  functional  I(T).  Here  T  denotes  a  solution  to  the  boundary-value 
problem  obtained  when  Eqs.  (1)  are  complemented  by  the  linear  boundary  condition 
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along  dV.  To  specify  the  problem,  we  wil^  consider  the  Dirichlet  condition 


and  the  functional 


I(T)  =  - 


[T(x,y)  -  TQ(x,y)]^dxdydz, 
V  ^ 


(3) 

(4) 

(5) 


where  TQ(x,y)  c  L2(V). 

This  problem  is  known  to  be  ill-posed  and  therefore  requiring  relaxation, 
i.e.,  the  construction  of  an  appropriate  minimal  extension  of  the  initial  set  U  of 
adinissible  controls.  Such  an  extension  can  be  constructed  on  the  basis  of  a  precise 
knowledge  of  the  G— closure  of  U,  i.e.,  the  set  GU  of  invariants  of  the  effective 
heat  conductance  tensors  of  all  composites  assembled  from  the  elements  of  U 

(Ref.  2).  However,  the  G— closures  are  known  onlv  for  a  few  particular  examples, 
the  case  of  U  defined  by  (^^2)  among  them  (Ref.  3j.  Yet  for  these  selected  examples, 
the  construction  of  GU  represents  a  difQcdt  problem.  For  more  complex 
situations,  e.g.,  that  of  an  elliptic  equation  of  the  4th  order,  the  problem  of 
constructing  the  G— closure  still  remains  open. 

At  the  same  time,  for  many  applications  we  do  not  need  to  know  the 
GU-set  in  full  detail.  Instead,  it  is  often  enough  to  specify  some  finear 
combinations  of  components  of  T>q,  particularly,  for  our  example  the  combination 

Tq  •  VT  entering  the  first  of  equations  (1).  This  is  the  only  combination  which 

really  matters  for  our  purposes;  to  determine  it,  we  apply  a  direct  approach,  free 
from  any  reference  to  the  G— closure. 

A  similar  problem  in  two  dimensions  has  been  discussed  in  Ref.  1. 


2.  Transformation  of  the  problem.  We  first  reduce  the  problem  to  the 
convenient  sup  inf  form.  Introduce  the  Lagrange  multipber  A  and  consider  the 
augmented  functional 


J  =  J(T.A)  =  I(T)  - 


AV  •  •  VT  dxdydz, 

-•V 


(6) 


the  right-hand  side  taking  into  account  the  heat  equation 

V  •  2?  •  VT  =  0  (7) 

following  from  (1). 

Equating  to  zero  the  first  variation  of  (6)  with  respect  to  T  and  bearing  (4) 
in  mind,  we  arrive  at  the  conjugate  equation 

V  •  2>  •  VA  =  -2(T-Tq)  (8) 


and  the  boundary  condition 


(9) 


After  integration  by  parts  with  the  boundary  condition  (9),  the  functional  (6)  takes 
on  the  form 


J  =  I(T)  + 


VA  •  7  •  VT  dxdydz 


(10) 


convenient  for  subsequent  use. 

It  can  be  shown  that  the  problem 

sup  I, 

7 

subjected  to  (1)  and  (4)  is  equivalent  to 

sup  inf  J 
7),T  A 


subjected  to  (4),  (9).  Indeed,  since 


J  =  I(T)  +  f  An  .  2>  •  ?TdS  - 
^dV 


V 


AV  •  T  •  VT  dxdydz 


the  operation  inf  J  yields,  in  view  of  (9), 

A 

inf  J  =  I(T), 

A 

the  constraint  (7)  now  appearing  as  a  necessarj’  condition  for  a  minimum  in  A. 
The  functional  sup  inf  J  has  the  following  upper  bound; 

2>,T  A 

sup  inf  J  =  sup  sup  inf  J  <  sup  inf  sup  J 


2?,T  A 


=  sup  inf 
T  A 


T  T) 
(T-TQ)^dxdydz  + 


TXT) 

G(VT,VA)dxdvdz 
V  '  • 


where  (we  accept  the  notation  (  =VT,  rj—  VA) 

if  ^  •  7?  >  0, 


G{(,V)  = 


(11) 


(12) 


T]  <0. 


•  7?,  if  ^ 

The  function  G(^,7/)  is  convex  with  respect  to  any  of  its  arguments  but 
non— convex  with  respect  to  their  union. 

?he  problem 


(T-T.)  dxdydz  +  G(VT,VA))dxdyd2 
V  ^  Jv 


T  1  (4),  >  1  (9) 


(13) 


sup  inf 
T  A  ^ 

is  still  iU— posed.  It  would  be  well-posed  if  the  integrand  were  a  saddle 

function,  i.e.  concave  in  ^  for  fixed  r)  and  convex  in  t)  for  fixed  The  solution 
would  then  exist  and  the  operations  sup  and  inf  would  commute.  For  our 
problem  it  is  obviously  not  the  case.  However,  the  requirement  that  the  function 
be  saddle  is  too  restrictive  when  ^  and  rj  are  gradients;  to  ensure 
existence  of  sup  inf  for  this  case  it  is  enough  to  require  that  this  function  be  only 
quasisaddle  (Ref.  1).  We  will  consider  in  this  connection  its  quasisaddle  envelope 
G**{(,v)  appljing  the  s.c.  polysaddlifi cation  transformation  introduced  in  Ref.  1 
and  playing  the  same  role  in  sup  inf  problems  as  the  polyconvexification 
transformation  (Ref.  4-6)  plays  for  the  infimum  problems.  This  new  transformation 
is  given  by  the  formula 

G**(^,77)  =  sup  sup  inf{a  •^  +  b'77+a;*{*77 
a;  b  a 

-inf  sup[a  •  (  +  h  •  rj  +  u  -  (  »  tj-  G( {,?/)]}.  (14) 

^  V  ,  ^ 

Tj  represents  the  null— Lagrangians  ({  »  rj)^  =  7/2^3  -  772^2* 

(^  X  Tj)2  =  772^2  -  77^^21  *  ^)3  =  ^71^2  ~  ’72^1  account  with  the  aid 

of  Lagrange  multiplier  u^u^,  ^2,  If  G{i,Tf)  is  convex  in  77  (which  is  now  the 

case,  see  (12))  and  arbitrary  in  (,  then  (Ref.  1) 

G**{i,v)>G{t,v).  ^  (15) 

This  inequality  represents  the  characteristic  property  of  G**{(,ri)  making  it 
possible  to  use  this  function  instead  of  G({,77)  in  (13)  and  thus  arrive  at  the  upper 
bound  for  this  functional. 

3.  Computation  of  G**(f.v):  the  upper  bound  for  sup  inf  J.  We  first 
compute  h(^,b)  =  sup[b- 77  -  H(^,r7)]  with  H(^,77)  =  -  a;  •  {  *  77  +  G({,77).  This 

n 

computation  is  similar  to  that  of  the  two  dimensional  analysis  done  in  Ref  1.  We 
obtain 


The  term  u  •  { 


h((,b)  =  sup[b-7/-H(^7?)]  = 
V 


0  if  b  +  u;  »  ^-u^  =  0,  \i_<  u< 


+  o)  otherwise  . 


The  transformation  (14)  now  involves  the  operation 
inf{a  •  |-inf{a  •  (-{-  h(^b))]} 

a  i 


(16) 


(17) 


which  yields  the  concave  envelope  of  — h(^,b)  with  respect  to  the  ^  —  variable  for 
fixed  b. 

According  to  (16),  -¥(^,b)  =  0  along  the  arc  u  e  of  the  curve  7 

in  the  space 

y.  b  =  -w  *  4  =  S(u)  •  (18) 

or,  explicitly  in  terms  of 


^  =  S  ^(u)  •  b,  u_.  <  u  <  u_|_  <  tD, 

b  •  u  . .  ,  a;  »  b 


(19) 


e-l/..\  V.  U  ^  .  b  •  U  ,,  ,  Li  »  D 

S  (uj  •  b  =  —75 - ly  b  +  - JJ - 77-  It}  T - 15 - 17  • 

b+J  u{u^+J) 

If  we  introduce  a  Cartesian  coordinate  system  (x,y,z)  with  z-axis  parallel 
to  the  a^-vector  (a>  =  0,0, cj)),  then  (19)  will  reduce  to  the  system 

^x  “  2  ,  2  ^x  ,  2  ,  i  °v’ 

U  +W  U  +U} 

(20) 


(y  =  ;  by  + 

^  U  +-U)  ^  u 


showing  that  the  curve  (18)  lies  on  the  surface  of  the  cylinder  (Fig.  1) 

‘^fx+«j)  +  Vx-bxfy  =  0. 


(21) 


Figure  1.  The  shape  of  curve  (19) 


The  concave  envelope  (17)  will  now  be  defined  as 

fo  ,  C  €  E 

inf{a  •  ^-inf[a  •  e-(-  =  •  (22) 

where  E  is  the  convex  hull  of  the  curvilinear  segment  (19). 

The  hull  is  a  convex  body  with  boundary  composed  of  two  sheets.  These 
sheets  intersect  along  the  arc  7  with  the  endpoints  A  and  B  given  by 

A:  {  =  S-l(u^)  •  b  =  S-1  ■  b 


'  + 


B:  (=  S“\u_)  •  b  = 


(23) 


b, 


respectively.  Also,  they  intersect  along  the  straight  line  segment  (chord)  AB 

(  =  tS“^  •  b  +  (l-t)S“^  •  b,  t  f  [0,1]  (24) 

connecting  the  same  points.  With  the  reference  to  Fig.  1  and  because  u_|_  is  finite, 

it  is  obvious  that  both  the  arc  7  and  the  chord  AB  belong  to  the  boundary  of  the 
convex  hull  E. 

In  view  of  the  subsequent  sup  operation  in  (14),  we  have  to  interpret  (22) 

b 

as  the  function  depending  on  the  argument  b  for  fixed  It  is  remarkable  that 
Eq.  (19)  which  represents  an  arc  of  7  in  ^-space  may  be  interpreted  as  Eq.  (18) 


representing  a  straight  line  7  in  b— space.  Analogously,  Eq.  (24)  represents  a 


chord  in  ^-space  and  at  the  same  time  a  curve  AB  in  b-space.  Both  will  belong 
to  the  boundary  of  a  body  3  in  b-epace  which  appears  as  we  interpret  the 
lefthand  side  of  Eq.  (22)  as  a  function  of  b  for  fixed  (: 


inf{a-  ^-inf[a-  ^  -  (- h(4,b))]} 

a  e 

In  view  of  (25),  the  operation 


0  ,  b  c 

-a),  h  i  3 


sup{b  •  7j-inf[a  •  ^-inf(a  •  C-(-  b(C,b)))]} 
b  a  ^ 

reduces  to 

sup  b  •  T) 
he  3 


(25) 


or 

sup  b  •  7 .  (26) 

bfconv^ 

Because  the  chord  (18)  and  the  curve  (24)  obviously  belong  to  the  boundary  of  the 
convex  hull  conv  01  ^  they  should  be  tested  for  optimality  in  terms  of  the 
operation  (26).  Since  the  body  conv  3  in  convex,  its  tangent  planes  participating 
in  the  computation  of  supremum  will  touch  its  surkce,  among  other  points,  also 


either  at  its  vertices  A  and  B  or  along  the  arc  AB.  We  first  consider  the  case 


where  the  contact  point  occurs  on  AB  and  carry  out  the  combined  computation  for 

sup  sup  [b  •  7  +  a;  •  if  *  7]. 

beAB 

Though  this  expression  is  generally  less  than  G**(f,7),  we  expect  that  it  will 
nevertheless  satisfy  the  inequality 


sup  sup  [b  •  77  +  4i;  •  ^  *  7?]  >  0(4,7?) 


U) 


bcAB 


and  thus  provide  us  with  the  upper  estimate  for  0(4,7?). 

In  Eq.  (24)  for  AB,  the  matrices  and  S_  are  defined  by  (23)  as 

S(u_|_),  S(u_),  respectively,  where  S(u)  is  given  by  (see(18)) 

S(u)  =  w  •  €  +  uE  (27) 

where  E  =  ii  +  jj  +  kk  is  a  unit  tensor,  and  €  =  —  E  »  E  is  the  Levi— Civita  tensor 
of  the  third  rank.  The  combination 

tS“^  •  b  +  (l-t)S“^  •  b, 

appearing  in  (24)  represents  the  4— convexification  of  the  basepoints  S~^  •  b,  S_^  • 
b  of  the  curve  7  (see(18))  corresponding  to  the  values  u_|_,  u_  of  parameter  u. 
The  operation 

sup  sup  [b  *  7?  +  £i7  •  4  *  7?] 


u 


btAB 


now  reduces  to  the  examination  of  the  extreme  points  of  the  function 

K  =  K(a>,b,t)  =  b  •  7?  +  A  •  [4-tS“^  •  b  -  (l-t)SlI^  •  b]+  w  •  4  x  7?  (28) 

where  A  denotes  the  Lagrange  multiplier  for  the  constraint  (24).  The  necessary 
conditions  for  extrema  require  that 

=  7?  -  tA  •  -  (l-t)A  •  =  0,  (29) 


=  -t{l-t)[(S-'  -  Sll)  .  b] .  {A  .  -  si'))  =  0. 

(st'  -  si')  •  b  =  0. 


Kj  =  -A 


(30) 

(31) 


The  Eqs.  (29)  and  (31)  are  obvious  whereas  Eq.  ((30)  follows  from  the  analysis 
given  in  Appendix  1. 

Eq.  (30)  shows  that 


(S“^  -  Sl^)  .  b  =  oA  .  (S~^  -  Sl^) 

where  q  is  a  scalar  multiplier. 

Introducing  the  symbols  m,n,p  defined  as 


(32) 


m  = 


n  = 


1 


u_ 

“2 - 2 

ul+w 

1 


u_|_(u_^+aJ  )  u_(u_+ai  ) 


(33) 


P  = 


1 


we  obtain 


2^  2 


1 

27  2> 

U  +01 


S  ,  ^  —  S_^  =  mE  +  no;o;—  pu;  •  6, 


and  Eqs.  (32)  and  (31)  become 

mb+nfb  •  o;)o^fpo;*  b  =  a[mA+n(A  •  o;)o^-po;  x  A], 
mA  •  b  +  n(A  •  oj)(b  •  oi)  +  pA  •  01  x  b  =  0, 

respectively. 

This  system  can  be  simplified.  To  this  end  we  assume  that  neither  of  three 

vectors 


34 

35 


o?  X  b,  0;  *  A,  A  X  b 


is  zero.  Computing  the  dot  products  of  (34)  witu  b,  A  w  respectively,  we  arrive  at 

mb^  +  n(b  •  u)^  =  a[mA  •  b  +  n(A  •  (i;)(b  u;)  —  pb  •  a> «  A],  (36) 

2  2 

mA  •  b+n(A  •  a;)(b  •  u;)+pb  •  A  »  l}=  a[mA  +n(A  •  w)  ], 

(37) 

(b  •  u  —  olA  •  tiA(m  +  juj?)  =  0  .  (38) 

Assuming  that  a  ^  0  and  taking  (35)  into  account,  we  conclude  that  Eqs. 
(36)  and  (37)  reduce  to 

mA^  +  n(A  •  uf  =  0,  (39) 

mb^  +  n(b  •  a;)^  =  0.  (40) 

2 

Eq.  (38)  allows  for  two  possibilities:  m  +  no;  =0  and  h  ■  u  =  aA  -  u.  It 
is  evident  from  (33)  that  the  first  never  occurs.  As  to  the  second  possibility,  this 
together  with  (39)  and  (40)  implies 

m(b^  -  c?A^)  =  0, 

which  means  that  either  m  =  0  or  |b|  =  |  a|  |  A| .  The  first  possibility  together 
with  (39)  and  (40)  implies  that 

A  •  a;  =  b  •  a;  =  0  (41) 

which  in  view  of  (35)  shows  that 

A  =  ^  (42) 

where  ^  is  a  scalar  multiplier.  We  thus  conclude  that  A  >«  b  =  0  which  is 
admissible  as  a  final  result. 

REMARK:  Eqs.  (41)  imply  that  the  curve  (24)  in  the  b— space  lies  in  the 


plane  perpendicular  to  ui. 

As  to  the  second  alternative  |  b  |  =  |  a]  |  A  | ,  this  one  together  with  b  •  w  = 
oA  •  u  does  not  contradict  the  Eqs.  (35)-(37)  of  stationarity.  This  possibility  is  in 
fact  eliminated  as  we  demand  that  the  Legendre  condition  K  ,  <  0  holds.  This  is 

shown  in  Appendix  2.  There  it  is  also  demonstrated  that  the  relationships  (41) 
together  with  m  =  0  satisfy  the  Legendre  condition  provided  that  ^  >  0. 

The  requirement  m  =  0  }ields 

ij?  =  ti_|_u_  .  (43) 

Now,  in  \new  of  (27),  (33),  (42),  (43),  Eqs.  (24)  and  (29)  can  be  rewritten  as 

follows 


where 


^  u_|_+u_  ^  (u_j_+u_)dj 


V  =  P 


b- 


u_^+u_  (u_|_+u_)dj 


kJ  *  b 


(44) 


d,  = 


1  tu_+  { 1— tju_j_’ 


and  the  vector  bf  AB  maximizing  the  function  K(a;,b,t)  is  equal  to 

u  ,  +u 


b  = 


+  '  - 


T 


^  +  -1-^  7? 

\v\ 


which  coincides  with  the  result  obtained  in  Ref.  1  for  the  two  dimensional  case.  We 
then  arrive  at  the  expression 

2 

(u  +u_)cos  X  —  sin2x 


2 


for  sup  sup[b*  rj  +  u  •  (  *  Tj\\  2x  denotes  the  angle  between  vectors  ( 

^  bcAB 

and  7).  This  result  is  valid  provided  that  sup  occurs  at  some  point  b  within 

bcAB 

the  arc  AB.  This  is  equivalent  to  the  requirement 

nr: 


u 


Another  two  possibilities  allow  for  sup  to  be  attained  at  the  endpoints  A  or  B. 

b£AB 

We  finally  obtain  (Ref.  1) 


sup  sup[b-T?+w-,f><77}=|  ^1  I?; 


(jj 


bcAB 


u_^c  0  s 2x,  0  <  t  an  < 


+ 


(u_^+u_)cos  x~v'u_j_u_sin2x , 


u_c  os2x, 


^<tanx< 


u 


+ 


u 


“a- 

—  <  tanx  <  IE. 


(45) 


The  expression  (45)  is  an  upper  bound  for  (12)  which  can  be  checked  as  in  Ref.  1. 

On  the  other  hand,  this  expression  can  be  achieved  by  rank  1  laminate.  To 
illustrate  that,  we  introduce  at  each  point  the  plane  spanned  by  vectors  (,ti,  with 
normal  u.  Then  we  introduce  a  layered  composite  with  layers  aligned  parallel  to  u 
and  bisecting  the  angle  2x  between  ^  and  tj.  For  this  microstructure,  with  its 
effective  tensor  and  the  concentration  t  chosen  in  accordance  with  the  rule 

(Ref.  1) 

2 

— 15—  =  tan  X, 


the  expression  for  ^  •  .00  •  7/  coincides  with  that  of  (45)  and  thus  proves  its 
attainability. 

4.  Conclusion.  We  thus  arrive  at  the  conclusion  which  has  to  be  expected: 
the  three  dimensional  case  is  essentially  the  same  as  its  two  dimensional 
counterpart.  At  each  point  the  optimal  layout  is  that  which  occurs  within  the  local 
plane  defined  by  vectors  (  and  rj. 

5.  Appendix  1:  Derivation  of  Eq.  (30) 

The  u>-derivative  of  a  scalar  function  — A  •  S  ^  •  b  is  computed  in 
accordance  with  the  rule 

{-A  •  S-1  •  b)^  =  [((-  A  •  $-')„  •  r^)  •  b]:*  =  -[(A  •  (S-^)^  •  r^)  ■  b]r® 

c 

where  r  is  a  vector  basis  (Ref.  7). 

The  (Li-dependence  of  the  tensor  S~^  will  be  perceived  occurring  through 

S  tr 

the  dependence  of  this  tensor  on  S(a;).  We  obtain  (Cjj=rgr^r  r  ) 

=  (S“^)^  .  sJ  =  (S“^)c;-  • 


<5S  =  S  '  SJ-  =  C,r--6S  =  Ctt-  -S  .  •  dJ] 

u  11  11 


and,  consequently, 
^-1 


=  (S~^)5  ••  eJ, 


(S  ')„=(S  ^••Cn--s„=(s-\--v,(rV..sj 
On  the  other  hand. 


.s_t 


and 


(S-l)s  =  -S-1  •  r,r^  .  S-’r‘i* 

^  '  Vo'  ® 


But  =  6  =  2.nd  consequently 


r“r^--S  =r“/--£PVr  r  r  =  e“^r 

p  q  r  I 


u 


We  obtain 

(S“^)a,=  -S“'  •  •  S-l(€“^r^)  =  -S-'  .  (riij-r^r,)  •  S-'r. 

-  S  •  (r2r2-r2r2)  •  S  r,  -  S  •  (r3rj-r,r2)  •  S 
As  we  compute  the  expression 

-[(A  •  (S-')„  •  ip  •  b)r', 

assume  that  the  basis  r  is  orthonormal;  we  obtain,  for  example, 

-[(A  •  (S-')^  •  I3)  .  b]t3  =  [A  •  S'^  •  (ijij-rsrj)  ■  •  bji^ 

=  (A  •  S”'  •  (rjrj-ijrj)  •  S“'  •  b)i^, 

and  analogous  expressions  for  other  components.  We  finally  arrive  at  the  formula 
-  (A  ■  S-'  ■  b)^  =  -!(A  •  (S"')^  •  Tj)  •  b]r'  =  A  ■  S-V  S"'  •  b. 

We  now  obtain 


•  b)„-(l-t)(A  •  SI^  b)_^  +  {  .  , 

=  tA  •  S~^  K  S“^  .  b  +  (l-t)A  .  SI^  *  S~^  •  b  + 

+[tS~^  •  b  +  (l-t)Sl^  •  b]  X  [tA  .  S~^  +  (l-t)A  •  SI^]  = 

=  (-  t  +  t^)S“^  •  b  X  A  .  S“^  +  (t-t^)Sl^  •  b  X  A  •  S“^  + 

+[-(l-t)  +  (l-t)^]Sl^  •  b  X  A  .  +  (t-t^)S“^  •  b  X  A  •  = 

=  -t(l-t)(S“^  -  SI^)  •  b  X  A  •  (S~^  -  SI^)  . 

6.  Appendix  2:  The  Legendre  condition.  The  function  K(a;,b,t)  defined  by 
(28)  should  be  maximum  with  respect  to  u.  This  means  that  K  should  be 

negative  definite.  We  apply  this  test  first  to  the  case  m  =  0,  A  =  /?b,  A-u;=b- 
w  =  0,  to  show  that  this  case  is  an  admissible  alternative.  The  expression  for  K 

can  be  obtained  from  that  for  which  is  given  by  (see  (32)  and  (34)) 

K^=  -t(l— t)[mb  +  n(b  •  a;)a;+  pu;x  b]  *  [mA  +  n(A  •  a;)a;- 


2 

— ptj  X  A]  =  — t(l— t){m  b  X  A  +  mn(A  •  a;)(b  *  u;)  — 

—  pm  b  X  jj  *  A  +  mn(b  •  u}){u  x  A)  —  np(b  •  *  u)*  h.  — 


2 

— mpA  X  a;  *  b  —  np(A  •  uj)u  x  w  *  b  —  j)  {u  x  b)  x  (w  x  A)}. 

Before  we  differentiate  this  with  respect  to  u,  we  disregard  all  terms  involving 
more  than  one  factor  that  vanishes  under  the  hypotheses  m  =  0,  A  =  ^ 

A  •  u)=h  •  u=  0.  The  expression  for  then  becomes 

K^=  — t(l— 1)[— 2pm(A  •  b)a;+np(b  •  ui)u? A  +  np(A  •  a;)u;^b]. 
Differentiation  with  respect  to  u  of  gives 

K  =  — t(l— t)p[— 2(A  •  b)m  JiL?{hA  +  Ab)]. 

iti 

Here  we  omitted  terms  which  vanish  under  the  adopted  hypotheses.  Applying  the 
relationship  A  =  /?b  and  referring  to  (33)  we  conclude  that 

+  2nw^bb] 
d  u 

2 

is  negative  for  /3  >  0  because  of  the  inequalities  p  <  0,  n  <  0,  dm/du;  >  0  and 
recalling  that  u_^  >  u_.  We  now  show  that  the  second  option,  namely  |b|  = 

I  a|  I A I ,  b  •  u;  =  aA  •  a;,  contradicts  the  Legendre  condition.  To  this  end,  we 
dinerentiate  with  respect  to  u,  the  derivative  can  be  written  in  the  following 

form: 

b  b  A  A 

if  —  mn[n  •  w)«A  +  (A  •  u;)n  —  (D  •  a;)®b  — (b  •  u)Q]  — 

— pm[(A  •  b)E  -  A®b]  -  pm[(A  •  b)E  -  b  ®  A]  - 

9 

— pn{[<j(A  •  ui)  —  a;  A]®b  +  (b  •  ii;)[w®  A  +  (A  •  a;)E  -  2A  »  u>]  + 

+  [ti^b  •  u)  —  w^b]  ®  A  +  (A  •  ®  b  +  (b  •  <j)E  ~  2b  ®  ui]}  + 

p^[w®  (A  X  b)  +  a;  •  (Ax  b)E] 

b  A 

where  Q,  Q  are  defined  by 

b  A 

D-tj=bx{j;j  Q  •  u  =  A  ^  u}, 

and  the  symbol  ®  denotes  the  dyadic  product. 

We  examine  the  quadratic  form  U  ♦  •  Q  for  the  admissible  test  vector 

n  =  k  A  X  b.  Referring  to  (35),  it  is  easy  to  verify  that  the  form  vanishes  for  this 
choice.  Now,  as  we  perturb  the  test  vector  by  a  small  term  Q'  and  linearize  the 
expression  for  (D  +  D')  •  •  (D  +  fl')  with  respect  to  fl',  then  we  find  the 

principal  part  of  it  to  be  linear  in  Q'  which  means  that  it  may  be  made  of 
arbitrary  sign  for  an  appropriate  choice  of  Q'.  This  completes  the  proof. 
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Fig.4.  Conve*  envelope  OTSNO  of  Itie  nonconvex  region  OQSNO  in  the  f -plane  for  |4|  >  iu.  Fig.  5.  Vector  6. 
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in  terms  of  f»]  and  the  part  QSN  of  a  circle  which  is  given  by  Eq.  (26a); 
see  Fig.  6a.  This  sector  is  a  required  domain  for  |/f|  s  ku.  As  to  the  case 
\A\z  ku,  the  corresponding  domain  should  be  the  ^-interpretation  of  a 
convexified  region  OTSNO  on  a  f -plane.  On  the  6-plane,  the  domain 
OTSNO  is  characterized  by  the  appearance  of  a  circular  arc  OT  instead  of 
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Bearing  this  in  mind  and  taking  notice  of  Eq.  (56),  we  obtain  for  /i,  (see 
’Obviously,  (58)]  the  expression 

-4’  =  u<y,  J,/ J,  >  u’J^/ J,  a  t’u’  =  id,  -  <i,)’uV4J,  J,,  H  r  =  [(</|rf2  ~  m^)/(»«?2  +  r/|^i)l»< 

•o  that  the  choice  (5S)  is  consisteni  with  |/t|  a  ku.  X  { [  d,  -  ( uJ,/  J,)]( d,)0  ■  i). 
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Abstract.  The  paper  suggests  an  application  of  a  direct  procedure  initiated  in  Ref.  1  to  problems 
of  optimal  layout  for  plates.  Optimal  microstructures  are  explicitly  indicated  for  a  number  of 
special  cases,  particularly,  for  the  case  when  the  original  and  conjugate  strain  tensors  are  coaxial. 
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Introduction 

In  this  paper  we  consider  nonselfad joint  optimization  problems  for  thin  anisotropic  plates 
subjected  to  transverse  load.  The  state  of  equilibrium  of  such  a  plate  is  described  by  the  equation 

V  •  V  •  ^  ‘  yVw  =  q,  (x,y)6S  (1) 

where  w  denotes  the  normal  displacement,  ^ —  the  tensor  of  stiffness,  and  q  the  transverse 
load  density.  The  boundary  oE  of  a  plate  will  be  assumed  clamped,  this  property  expressed  by 
the  boundary  conditions 


w 


=  0. 


(2) 


It  will  be  assumed  that  plays  the  role  of  control  and  may  take  one  of  two 

admissible  values  or  ^2  at  each  point  of  the  plate.  The  materials  1  and  2  with  tensors 
and  -S’ 2  of  stiffness  will  both  be  assumed  isotropic,  i.e. 


Here  and  below,  a^  a2,  a^  represent  an  orthonormal  basis  in  the  space  of  2nd  rank  symmetric 
tensors  in  the  plane,  i.e. 


a^  =  (l/v^(ii+jj),  a2  =  (l/,/7)(ii-jj),  ag  =  (l/v^(ij+ij).  (4) 

Introduce  the  characteristic  function  Xj(x,y)  of  domain  occupied  by  material  1  with 
tensor  of  stiffness,  and  a  similar  function  X2(^>y)  material  2;  obviously,  =  1- 

It  is  required  to  find  the  distribution 
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■S’Cx.y)  =  Xi(x,y)  +  X2(x,y)^2 


(5) 


of  the  stiffness  tensor  throughout  S  which  maximizes  some  weakly  continuous  functional  I(w)  of 
solution  to  the  boundary  value  problem  (1),  (2).  Weak  continuity  is  supposed  to  be  with  respect 
to  W2(S),  this  space  naturally  associated  with  (1),  (2).  Specifically,  as  a  typical  example,  we 
will  consider  the  functional 


I(w)  =  - 


[w(x,y)  -  WQ(x,y)]^dxdy 
S 


where  WQ(x,y)  e  L2(S). 

This  and  similar  optimization  problems  are  known  to  be  ill— posed  and  therefore  requiring 
relaxation,  i.e.,  the  construction  of  an  appropriate  minimal  extension  of  the  initial  set 
U  =  ^2}  admissible  controls.  Such  an  extension  is  currently  offered  on  the  basis  of  a 

precise  knowledge  of  the  G-closure  of  U,  i.e.  the  set  GU  of  invariants  of  the  effective  stiffness 
tensors  of  all  composites  assembled  from  the  elements  of  U  (Ref.  2)  However,  the 
G— closures  are  known  only  for  a  few  particular  examples  (Ref.  3),  and  the  plate  problem  is  not 
among  them.  Yet  for  these  selected  examples,  the  construction  of  GU  represents  difficulti’^s,  and 
for  the  plate  problem  these  difficulties  are  still  not  overcome. 

At  the  same  time,  for  many  applications  we  do  not  need  to  know  the  GU— set  in  full. 
Instead,  it  is  often  enough  to  specify  some  linear  combination  of  components  of  for  our 
problem,  this  is  the  combination  3^  •  -VVw  which  only  matters  in  view  of  the  Hooke’s  law.  To 
determine  this  combination,  we  apply  a  direct  approach,  free  from  any  reference  to  the  G— closure. 

Similar  problems  for  the  2nd  order  equation  V •  •  Vw  =  f  have  been  discussed  in  Refs. 

1,9. 
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2.  Reduction  to  a  sup  inf  problem 

We  first  reduce  the  problem  to  a  convenient  sup  inf  form.  Introduce  the  Lagrange 
multiplier  A  and  consider  the  augmented  functional 


J  =  J(w,A)  =  I(w)  +  A(V  •  V  •  ^  •  VVw  —  q)dxdy, 


(6) 


the  second  member  at  the  right-hand  side  taking  into  account  the  equation  (1). 

Equating  to  zero  the  first  variation  of  (6)  with  respect  to  w  and  bearing  (2)  in  mind,  we 
arrive  at  the  conjugate  equation 


V-7  -  -VVX  =  2(w  —  Wq) 


(7) 


and  boundary  conditions 


A 


as 


=  0. 


(8) 


After  integration  by  parts  with  the  boundary  conditions  (8),  the  functional  (6)  takes  on  the 

form 


J  =  I  + 


(VVA  •  ’  VVw  —  Aq)dxdy 
E 


(9) 


convenient  for  a  subsequent  use. 
The  problem 


s  up  I 
w 


5 


subjected  to  (1),  (2)  is  equivalent  to 


s  up  inf  J  (10) 

^,w  A 


subjected  to  (2),  (8).  This  is  since  by  (6), 


infJ  =  I  +  inff  A(^-y*  -VVw-qjdxdy  = 
A  A-lS 


I  + 


fo 


OD 


if  V*V*  ^  •  -VVw 
othe  r  wi  se. 


q, 


We  observe  that  Eq.  (1)  appears  as  a  necessary  condition  for  a  minimum  in  A.  Bearing 
(8)  in  mind,  we  may  assume  that  J  in  (10)  has  the  form  (9).  We  have  finally  for  (10) 


s  up  inf{I+ 
^,w  A 


(VVA*  •  •  VVw— Aq)dxdy} 

E 


(11) 


where  ^6  U  =  {^p  and  w  and  A  satisfy,  respectively,  equations  (2)  and  (8). 

In  the  sequel,  we  will  establish  the  upper  and  lower  bounds  for  the  functional  (11).  An 
upper  bound  will  be  constructed  analytically  through  an  appropriate  mathematical  construction, 
and  the  lower  bound  will  be  generated  by  a  specially  chosen  composite  assembled  from  the  original 
constituents.  Both  bounds  will  be  shown  to  coincide,  and  desired  relaxation  will  thus  be  achieved. 


3.  Upper  bound  for  s  up  inf  J 

3i,yt  A 

This  functional  possesses  the  following  upper  bound: 


6 


s  up  inf  J  =  sup  sup  inf  J  <  sup  inf  sup  J  = 
wA  w^A  wA^ 


=  sup  inf[— 
w  A 


2 

(w-Wq)  dxdy  - 

E 


Aqdxdy  + 
E 


G(VVw,VVA)dxdy] 

E 


(12) 


where 


GU,ri) 


'i--  ,  i--  i  -  ^2" 

i--  ,  i-  -  i  ■■  ^2  " 


(13) 


The  notation  ^  =  VVw,  t}  =  VVA  will  be  used  below.  The  function  G(if,r;)  is  convex  with  respect 
to  any  of  its  arguments  but  non— convex  with  respect  to  their  union. 

The  problem 


sup  inf[— 
w  A 


(w— Wg)^dxdy  —  f  Aqdxdy  +  \  G(VVw,  VVA)dxdy] 
E  EE 


(14) 


is  still  ill— posed.  It  would  be  well— posed  if  the  integrand  G(^,7/)  were  a  saddle  function,  i.e. 
concave  in  ^  for  fixed  tj  and  convex  in  rj  for  fixed  The  solution  would  then  exist  and 
operations  sup  and  inf  commute.  For  our  problem  it  is  obviously  not  the  case.  However,  the 
requirement  that  the  function  G{^,ti)  be  saddle  is  too  restrictive  now  that  ^  and  7/  are 
gradients;  to  ensure  the  existence  of  sup  inf  for  this  case,  it  is  enough  to  require  that  this 
function  be  only  quasisaddle  (Ref.  1).  The  quasisaddle  envelope  G  of  will  be 

constructed  applying  the  so  called  polysaddlification  transform  introduced  in  Ref.  1.  This 
transform  plays  the  same  role  for  sup  inf  problems  as  the  polyconvexification  transform  (Refe. 
4—6)  plays  for  the  minimum  problems.  For  the  fourth  order  problem  considered,  the 
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polysaddlification  transform  is  given  by  the  formula 


G  {^,v)  =  sup  sup  inf{a-  •^+b-  -  tj+u-  •((f*7/)+d^*  'T-  -rj 
a;,d  b  a 

-inf  sup[a-  -(f+b-  -Tz+w-  •(^>«7;)+d^-  -T-  •n-G{^,T})]}  (15) 

(  ri 


Here  we  introduced  the  notation  T  for  a  tensor 


T  -  a^a^  a2a2  agagi  (16) 

the  terms  u-  -  ^  »  rj  and  d^  •  •  T  •  •  7;  represent  the  null— Lagrangians  (  *  rj  and  (  ■  •  T  •  •  t] 
(Refs.  3—6)  taken  into  account  with  the  aid  of  Lagrange  multipliers  u  and  d. 

The  transform  G  defined  by  (15)  satisfies  the  inequality 

G**U,V)  >  GiU)  (17) 


for  any  G(^,7/)  convex  in  rj  and  arbitrary  in  (  (Ref.  1). 


Applying  G  {(,?])  instead  of  G(^,r?)  we  arrive  at  the  upper  bound 


sup  inf[—  (w-Wg)^dxdy  —  |  Aqdxdy  +  [  G  (^,77)dxdy]  (18) 


for  (14),  and,  consequently,  for  the  original  functional  (10). 

4.  C!ompiitation  of  G  (^,77) 

We  first  compute  E(^,b)  =  sup[b- -77  —  H(^,77)]  with  H(if,77)  =  -  a;- -(^^t;)  —  d^- -T- -77 + 

n 

G{i,n)-. 
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C^"Tf  if  7?  e  (f- *77  >  0, 
b..77-H(e,77)=  ^  ^ 

if  ^  6  if*  -  (^j— ^2)’  ^  0. 

1  2 

The  tensors  c  ,c  are  defined  as  (devf  =  f23'2  ^3^3) 

=  b  +  (d-kj)f ^a^  -  (d  +  /ij^)devf  +  a» «  f , 

=  b  +  (d-k2)f  ^a^^  —  (d  +  (M2)dev^  +  u  »  (.  (19) 

By  argument  similar  to  that  described  in  Ref.  1  we  arrive  at  the  formula 

■0  if  b  = 

E(f,b)  =  sup[b*  .77-H(f,77)]  =  •  (20) 

^  [+0D  Otherwise. 

In  (20),  the  matrix  (S)  is  defined  as  the  convex  huU 

(S)  =  tj^Sj^  -}-  ^2^2’  H’^2  ~  H  ^2  ~  ^ 

of  matrices 

S.  =  A. +  a;..e,  Aj=^j-dT,  i  =  1,2,  (22) 

where  the  matrix 


€  =  —  E  >«  E 


(23) 
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defines  the  Levi— Civita  tensor  of  the  6th  rank  acting  in  the  linear  space  of  2  x  2  symmetric 
tensors.  The  unit  tensor  E  in  this  space  can  be  defined  as 

E  =  a^a^  +  a2a2  +  agUg  (24) 

in  the  basis  (4),  and  by  a  similar  formula  in  any  other  orthonormal  basis. 

We  make  note  of  the  formulas  (Ref.  7) 

£  =  — E  X  E  =  — a  a  x  ai  at  =  — a  a.at  ^  a  at  £^^^  (25) 

SS  K&  SvK  SuJC 

where 

=  ag-- (ak  >«  af)  (26) 

are  Levi-Civita  symbols  (e^^^  =  =  1,  =  -1,  £®^^  =  0 

otherMrise);  also 

U' '  €  =  —<j‘  •  E  X  E  =  —(j  xE  =  — Exuj=€-‘U).  (27) 

Geometrically,  the  function  h(^,b)  of  ^  for  fixed  b  is  equal  to  positive  infinity  everywhere 
except  for  points  of  the  set 

b=<S)-.^,  tj,t2e(21).  (28) 

Equation  (28)  can  be  inverted  to  express  $  in  terms  of  b.  To  this  end  we  introduce  symmetric 
tensors  of  the  4th  rank  (see  (22)) 
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3^-dT,  3^-dT,  (A)  =  +  t2A2 


(29) 


and  compute  the  inverse  matrix  (S)  ^  =  [(A)  +  w*  -f]  ^  =  [(A)  —  x  E]  We  obtain  by 
direct  calculation 


<S)“^=[l/(det<A>+(j-  •  (A) .  ■u)]{{det{^)){A)~^+ujuj+{u-  •  <A>)xE}=5+nxE  (30) 


where 


6  =  [l/(det( A) +ki*  •  (A)  •  •  w)]{(det(A) )( A)  d-iJui} 


(31) 


-1 


denotes  the  symmetric  part  of  (S)  and 


fl  =  [l/(det(A)+a;**<A)‘'w)](a;'-(A)) 


(32) 


denotes  the  2*2  tensor  associated  with  its  skew-symmetric  part. 

The  set  (28)  is  a  segment  of  the  curve  in  ^-space  traced  as  t  j  varies  between  0  and  1. 
This  segment  cormects  points  and  corresponding,  respectively,  to  tj^  =  1  and  tj^  =  0 

=  ^(^)  =  S2^--b.  (33) 

We  now  compute  the  result  of  the  operation 
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(34) 


inf{a-  - <J-iiif(a-  •  ^  -  (-h(^,b))]} 
a  ^ 


which  comes  second  in  the  sequence  (15).  This  one  is  known  to  put  into  correspondence  with  any 
given  function  -¥(^,b)  its  concave  ^-envelope,  i.e.  the  least  concave  function  of  ^  greater  than 

or  equal  to  -¥((^,b).  Particularly,  if  -^(^.b)  is  itself  concave  in  then  the  operation  (34) 
leaves  this  function  intact. 

In  our  special  circumstances,  this  is  obviously  not  the  case.  The  concave  envelope  of 

-¥((f,b)  appears  to  be  the  function  defined  as  negative  infinity  everywhere  except  for  points  of 
the  convex  hull  E  of  the  curvilinear  segment  (28)  where  this  envelope  is  equal  to  zero: 

■Q  ,  f  e  H 

inf{a--,f-inf[a--,f-(-K(^,b))]}  =  (35) 

^  ^  -IB  ,  (f  ^  H. 


The  hull  E  is  a  convex  body  in  the  ^-space.  We  will  assume  that  the  curvilinear  segment 
(28)  and  a  line  segment 


connecting  the  endpoints  and  (see  (33))  both  belong  to  the  boundary  3E  of  c.. 

For  our  future  purposes  we  need  to  know  the  left — hand  side  of  (35)  as  the  function  of  b 
for  fixed  ^  This  function  can  be  defined  as  equal  to  negative  infinity  everywhere  in  the  b-space 
except  for  the  body  ^  which  appears  as  the  "b-image"  of  E,  specifically,  the  boundary  of 
3  is  described  by  the  same  equation  as  that  of  5E,  this  time,  however,  ^  should  be  kept  fixed 
whereas  b  should  be  considered  variable.  Obviously,  the  set  (28)  which  is  perceived  as  a 
curvilinear  segment  in  the  ^-space  appears  as  a  line  segment  in  the  b-space,  and  in  this  capacity 
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belongs  to  33.  Also,  the  set  (36)  which  represents  a  line  segment  in  the  ^-«pace  appears  as  a 
cnm7znear  segment  in  the  b-space,  and  this  segment  also  belongs  to  33  Summarizing  these 
results,  we  arrive  at  the  following:  the  transform  (15)  reduces  to  a  single  operation 

sup  [b- -7/ +  a;* '(^xr/)  +  dif- -T- -t;]  (37) 

M,b 

subjected  to  the  constraint  b  6  ^  Note  that  the  set  3  itself  depends  on  oj  and  d. 

The  curvilinear  segment  (36)  in  the  b— space  obviously  represents  a  rib  on  33  The 
calculation  (37)  of  the  supremum  with  respect  to  b  will  include  among  others  the  possibility  that 
the  supremum  is  attained  at  points  belonging  to  this  segment.  In  the  sequel,  we  investigate  this 
possibility  in  major  detail.  Equation  (36)  can  be  represented  in  the  equivalent  form  (see  (33)) 

^  =  (m^S"^  +  ^ 

Here,  m^,  m2  >  0,  m^  +  m2  =  1. 

This  relationship  will  be  taken  into  account  with  the  aid  of  the  Lagrange  multiplier  A  in 
the  course  of  the  maximization  operation  (37).  We  will  examine  stationary  points  of  the  function 

^  =  b*  ‘Tj+ui-  +  d^’  'T*  *7/  +  A  •  •  (^  —  (S  ^)  ■  ‘b)  (39) 

viewed  as  the  function  of  b,a/,d  and  mj^. 

A  routine  calculation  shows  that 

4  =  I,  -  A  -  •  (S-'>  =  0 

which  means  that 
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(40) 


A  =  ,  •  ■  <S-b~^ 

With  equations  (38)  and  (40)  in  mind,  the  function  ifi  becomes 

^  =  +  U‘'{^*r])  +  d(‘  ‘T].  (41) 

It  can  be  shown  (c.f.  Ref.  7)  that 

=  -(A  •  •  (S-‘>  .■b)^+(-v=  mj(A . .  S-')  «  (S-l-  -b) 

+  m2(A  •  •  82^)  »  (S2^-  -b)  +  ^  «  7/. 

This  expression  can  be  rewritten  in  either  of  two  forms: 

=  m^(A.  .S-^)  *  (S-1.  -b)  +  m2(A.  .S-1)  .  (S"^*  -b) 

+  ((mjS^^+m2S2^)-  -b)  x  (A  -  •(m^Sj^+m2S2^))  =  (42) 

=  -mjm2(AS“^*-b)x(A--AS~^);  AS~^  =  S2^-S~\ 
or 

,..(S-‘)“‘--(in,S-‘.S[‘+ai2Sj'.S2']--<S"V'--?+f“'/-  («) 

The  stationarity  condition  =  0  can  now  be  written  as 

AS~^--b  =  (AS~^)--(S“^)“^.-e=  «A--AS“^  =  (44) 

=  «7?.-  <S“^)"^.-(AS“^) 


14 


where  /c  is  a  scalar  multiplier.  An  equivalent  representation  is  associated  with  equation  (43): 


77- •  ^7?  =  0  (45) 

Condition  =  0  reduces  to 

^^=-m^m2( AS“^  •  •  b)  •  •  T •  ■  ( A •  •  AS~^)=-m^m^K~\AS~^ . .  b) •  •  T •  •  ( AS~^  •  •  b)=0.  (46) 

or,  equivalently, 

^^=-77. .  . .  [mjS“^ .  •  T • .  S“4  m2S2^ •  •  T •  •  Sj^]  •  •  ^  •  T •  •  77=0.  (47) 

Note  that  the  stationarity  condition  (46)  applies  as  the  necessary  condition  for  a  maximum  if  the 
corresponding  root  d  is  such  that  the  function  (f>  defined  by  (41)  is  concave  in  d  for  all  uj.  To 
guarantee  this,  we  must  require  that  det  S-  >  0(i  =  1,2),  i.e.  that 

detA.  +  a;- •  A.- *0;  >  0,  i  =  1,2.  (48) 

These  inequalities  should  be  considered  as  additional  constraints  influencing  the  d— maximization. 

Computing  the  expression  (41)  for  (p  at  the  stationary  values  of  u  and  d  we  have  to 
maximize  it  with  regard  to  m^ .  Before  we  do  so  we  investigate  this  expression  in  terms  of  its 
attainability  with  the  aid  of  special  microstructures.  This  is  a  right  time  for  such  investigation 
since  the  aforementioned  construction  explicitly  depends  on  m^^,  this  dependence  being  very 
special  for  a  number  of  popular  microstructures. 
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After  maximization  in  m^,  the  expression  (41)  should  produce  a  final  construction  (37)  for 
G  This  program  is  elaborate  in  its  entirety,  and  we  will  begin  with  the  analysis  of  several 


special  cases. 

5.  Case  when  tensors  ^  and  ij  are  proportional 

In  this  case,  the  assumption  u  =  Q  =  0  obviously  satisfies  equation  (45)  since  the 
matrices  S2,  (S)  and  (S~^)  are  then  symmetric.  Equation  (46)  is  reduced  to 

=  0  (49) 

where  (c.f.  Eq.  (31)) 

AS  =  S^-Sj^  =  A“^  -  A~^,  =  (m^A“4m2A2^)“^ 

The  tensors  A.(i  =  1,2)  are  defined  by  Eqs.  (29),  (3)  and  (16)  as 

A.  =  Kja^a^^  +  Mj(a2a2+a3a2),  K-  =  L-d,  M-  =  /Zj  +  d.  (50) 

We  therefore  obtain 

A(J*-(d)  ^••^=[AK  ^a^aj^+AM  \a2a2+a2a2)]* '[(K  ^a^aj^+{M  ^(a2a2+a2a2)]  •  •  ^ 

=  +  (AM-l)(M-'>-*(^2a2+^3a3)  (51) 

where 

AK“^  =  K~^  -  K~\  AM“^  =  -  M“\ 

=  (mjK"4m2K2^)”\  =  (mjM[4m2M2^)“^  (52) 
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Equation  (49)  shows  that  the  second  invariant  of  (51)  equals  zero,  i.e. 


Introducing  the  ratio 


C=  |dev<|/?j  =  J(j2+^)/?, 


of  deviatoric  and  spherical  parts  of  tensor  we  arrive  at  the  equation 


■(k2-ki)(d+mi/22+m2/Xi) 


2 


defining  the  Lagrange  multiplier  d 


(53) 


d  =  (CkA/i-/iAk)/(CAM+Ak),  (54) 

k  =  mj^k2+m2kj,  ^  +  >^2^1’ 

Ak  =  k2-kp  A/i  =  /Z2  -  (55) 

Equation  (54)  has  been  obtained  earlier  by  Gibianskii  and  Cherkaev  in  Ref.  8.  We  use  (54)  to 
eliminate  d  from  the  expression  (39),  the  resulting  construction  is  attainable  by  a  laminar 
composite  of  the  1st  rank  (Ref.  8). 
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6.  Case  when  tensors  ^  and  rj  are  coaxial 

This  case  generalizes  the  previous  one  but  is  related  to  a  new  situation  when  we  cannot 
apply  the  G-closure  technique  (Ref.  3)  to  construct  the  required  relaxation;  on  the  contrary,  the 
case  of  Section  5  is  self-adjoint  and  therefore  can  be  handled  with  the  aid  of  such  technique.  In 
the  new  circumstances,  no  G— closure  is  known,  and  the  direct  method  demonstrates  here  its 
genuine  power. 

Because  the  tensors  ^  and  rj  are  coaxial,  we  can  choose  the  basis  aj^,a2,a2  (see  (4))  so 

that 


(  -  ^j^a^  +  ^2^2^ 

(56) 

V  ~  ^2^2’ 

(57) 

the  tensor  u  will  be  assumed  having  only  a^— component,  namely 

a;  =  o^gag. 

(58) 

Direct  calculation  of  the  matrix  shows  that 

<S“^)“^=Z~VQ+‘^3R^)''\QZa^aj+PZa2a2+PQa3a3+W3R^a3a3- 

-WgRZagxE)  (59) 

where 


P  =  ^M/(KM+w2)^,  Q  =  <^K/(KM+w^)^,  R=  <^l/(KM+a;^)^,  Z  =  <1/M>,  (60) 


and  symbol  (•)  denotes  averaging,  i.e.,  for  example, 


(1/M)  =  m2/M2=  mj/(Atj^+d)  +  m2/(/i2+d), 


(61) 


etc. 

The  tensor  b  computed  as  b  =  (S~^)~^  •  •  ^  (c.f.  (38))  turns  out  to  be  coaxial  with  ^ 
because  of  (56)  and  (59): 

b  =  =  [l/(PQ+tj|R^)l[(Q<j+W3Rf2)ai  +  (P$2-U3R?j)a2].  (62) 

The  matrix  AS~^  can  easily  be  computed,  too;  this  one  equals 

AS~^  =  pa^aj^  +  qa2a2  +  za^a^  +  u/jraj^E  (63) 

where 

p  =  A(M/(KM+a;^)),  q  =  A(K/(KM+a;2)),  r  =  A(l/(KM+a;2)),  z  =  A(l/M),  (64) 
and  symbol  A(")  denotes  the  difference,  i.e.  for  example, 

A(l/M)  =  I/M2-  1/Mp  (65) 

etc. 

The  tensor  AS~^  •  •  b  =  AS~^  •  *  (S”^)”^  •  •  ^  is  now  computed  as 

AS"^-  -b  =  [1/(PQ  +  a;2R2)){[(pQ  +  +  a;3(pR  -  rP)ya^  + 

[(qP  +  W3rR)^2  “  “  rQ)^lla2}- 
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A  similar  formula  for  A  -  •  AS  ^  =  77-  •  (S  •  AS  ^  is  given  by 

A  - .  AS"^  =  [l/(PQ+a;2R2)]{[(pQ+a;2rR)7y^  -  a;3(pR-rP)772]a^ 

+  [(qP+a;3rR)772  +  a;3(qR-rQ)77^]a2}. 

2  2 

Direct  calculation  shows  that  (Bj  =  K.M-+a;3,  i  =  1,2) 

-  (AS~^-  •b)(PQ+a;3R^)BjB2  =  (MAk^j-a;3A/i^2)h  +  (^^^^2  +  ^3^k^^)a2,  (66) 

—  (A  -  •  AS~^)(PQ+W3R^)Bj^B2  =  (MAk77j+W3A/ir72)aj^  +  (KA/i7/2  ~  ^^3^k77j^)a2,  (67) 

K  =  mj^K2  +  ™2^r 

We  are  now  ready  to  apply  the  necessary  conditions  (44)  and  (46).  The  first  of  them  is  reduced  to 

(u3-MK)(^^7/2-^2^i) 

K  =  K  A/z/Ak,  M  =  M  Ak/A^z ,  KM  =  KM. 

In  view  of  (44),  Eq.  (46)  can  be  rewritten  as 

(AS“^--b)-.T--(AS~^--b)  =  0.  (70) 

Combining  this  vnth  (66)  we  get 

=  1(M  +  a/3)/(«3  *  K)l(Ak/A^).  (71) 
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Equations  (69)  and  (71)  comprise  a  system  that  can  be  solved  to  determine  and  d;  we  obtain 

(C  =  =  J72/^i) 


Wg  =  ((k+/i)/2)AkA/i(a— ^)/[(aA/i±Ak)((A/x±Ak)]  (72) 


and 


d=[l/2((7A/i±Ak)(CA/i±Ak)][2<7Ck(A/i)^±A/iAk(a+C)(k-/i)-2/l(Ak)^].  (73) 


Equations  (72),  (73)  provide  a  basis  for  the  subsequent  final  calculations.  We  compute  the 
bilinear  form  (41)  making  use  of  (72),  (73).  Direct  calculation  shows  that 


where 


+  m2^. 

The  values  (74)  of  is  attained  by  the  rank  1  laminate  with  layers  parallel  to  the 

main  axes  of  tensor  a2,  i.e.  the  main  axes  of  ^  and  tj. 

This  regime  will  be  valid  within  the  range  of  parameters  (  =  ^ 

by  Ineqs.  (48)  together  with  (72),  (73).  Without  the  range,  rank  2  laminates  will  be  applied  to 
saturate  the  corresponding  bounds. 

To  show  this,  consider  for  example,  the  case  detA2  +  a;*  •  A2-  •  w  =  0  or,  in  view  of  (58), 
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(75) 


Bj  =  K2M2  +  ^2  ^  0. 

This  is  a  manifold  in  the  space  variations  5u)  =  Sd  are  therefore  linked 

by  the  relationship  (see  (50)) 


2d(5d  —  (k2  —  ^2)^^  ~  ^ 

as  we  move  along  this  manifold.  The  latter  relation  can  be  rewritten  as  (see  (50)) 


M  =  2u}^6uj^/{M^-K^),  (76) 

and  instead  of  two  necessary  conditions  =  0  (see  (44)  and  (46)),  we  arrive  at  only  one 

condition 


(AS  ^••b)x(A..AS“^)--a3^a;3  +  (AS"^- -b)- -T- -(A*  •  AS“^)  2ijj^6uj^l{U^-Yi^)  Q 


or,  equivalently, 

(AS“^-.b)x(A--AS“^)--a3  +  [2a;3/(M2-K2)](AS~^- -b)- -T- -(A- •  AS“^)  =  0.  (77) 


This  condition  should  hold  along  with  (75). 

Equation  (77)  can  be  transformed  with  the  aid  of  equations  (66),  (67)  defining  matrices 
AS  ^••b  and  A-'AS”^.  We  arrive  at  the  relationship 


MK  -  u;^  +  2(j^(M-K)/(M2-K2)]((7-C)  +  2a;3{[(M2-K2M2)/(M2-K2)-M](Ak/AM) 


-  [(K^-K2M2)/(M2-K2)  +  K](A/x/Ak)(7C}  =  0. 


(78) 
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2 

Expressions  in  the  square  brackets  can  be  transformed  as  we  use  (75)  to  eliminate  After  some 
algebra  we  arrive  at  the  relationships 

MK-a;^+2a;^(M-K)/(M2-K2)  = 

(79) 

[(M2-K2M2)/(M2-K2)-M](Ak/A/x)-[(K2-K2M2)/(M2-K2)+K](A/x/Ak)(TC=-  m2c/(M2-K2).) 

Here,  symbols  /?,  7  and  c  are  defined  as 

/?  =  -(u  +  v), 

7  =  k2V  -  fi^n,  (80) 

c  =  u  -  ya(, 

where 

u  =  (k2  +  /i)Ak,  V  =  (k  +  (81) 

Eq.  (78)  now  shows  that 

W3  =  (l/2c)(,3d+7)(ff-0-  (82) 

We  now  use  this  relation  to  eliminate  from  (75).  The  result  will  be  quadratic  equation 

for  d: 
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(83) 


-  (f  -  4c2]  +  2[0'ia-<:f  +  2c‘^{k^  -  ^i^)]d 
+  '^{(T  -  Ci^  +  40^2^  =  0- 


The  discriminant  of  this  equation  is  equal  to 


From  Eqs.  (80),  (82)  it  follows  that 


(7  +  /Jk2)(7  -  0ii2)  =  -  uv(k2  + 


and  the  discriminant  turns  out  to  be 


\<?{)s.2-¥ii<^[-{(P‘  -  2crC  +  C^)uv  +  u^  -  2u\a(  +  v^cr^C^] 
=  4v^c^(k2  +  -  u/v)(C^  -  u/v)  . 


Eq.  (83)  now  shows  that 


d  =  -  {uifyc-Q^  -  +  2c\-i^) 


+  2vc(k2  +  «/'')((■*-  tt/'')l- 


(84) 


The  corresponding  values  of  will  be 


~  ~  27C±/?v(k2+M2)J  (<^^-u/v)(C^-u/v)} 
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or,  in  view  of  (80), 


‘^3  =  -  (f  -  4c^]}{c(v  -  u)  +  v(u  +  v)J((7^-u/v)(C^-u/v)}.  (85) 

Now  it  is  easy  to  compute  the  bilinear  form  (41).  After  some  algebra  we  obtain 

=  [(K2M2  -  +  MAk)][K2  +  M^aC  -  uj^{a  -  0]  + 

+  ‘^3(^-0  +  d(l  -  <^0- 

Making  use  of  (50)  and  (68),  we  reduce  this  to  the  form 

0/(^1 =  k2  +  +  {mj^AkA/i/[k2A/i  +  /iAk  +  d(Ak  -  A/i)]} 

[-  k2  +  d  -f  uj^{a  -  0  -  (d  +  (86) 

With  the  aid  of  (84)  and  (85)  one  can  show  that 

-  k2  +  d  +  (J3(a  -  0  -  (d  +  =  {(k2  +  +  v)^(o-  -  0^  “  4c^]} 

+  MAk  +  d(Ak  -  Am)  =  {l/[(u+v)2(cr-C)^  -  4c^]}  M, 

where 
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2(H-o-C)[c^-uv((r-0^]±  v[2c(1-(70-{u+v)((7-0^]J(o-^-  u/v)(C^-  u/v), 


M=  2uv(u+v)(cr— {)  —2c 


2cu— (u— v) 


c±vj(a'^-  u/v)(C^-  u/v) 


Now  it  is  easy  to  check  by  direct  inspection  that 


-  [(k2+/X2)/u] 


u/v  +  o’C+-  u/v)(C^-  u/v) 


and  from  (86)  we  obtain 


=  ^2  -  [miAkA/i(k2  + 


1/v  +  (crC/u)  +  (l/u)J  (a^-u/v)(C^-u/v)  . 


(87) 


The  values  (87)  of  02±  ^6  attained  by  the  rank  2  lamination  with  material  being  the  core  and 
layers  being  parallel  to  the  main  axes  of  and  77.  To  show  this,  consider  the  formula 


^+[2m2/(k2+/i2)](“i°“i^+®2tttt)]  ^=^+mjA  ^  (88) 


for  the  effective  tensor  such  a  composite  assembled  from  materials  2^  and  ^  taken  with 
volume  fractions  m^  and  m2,  respectively.  Parameters  a^,  a2>0  (a^^  +  02  =  1)  are  linked  with 
the  geometric  parameters  i,p  of  microstructure  (see  Figure)  by  the  formulas 


«1  =  f(l-p)/m2’  “2  ^  ^/"^2- 

The  matrix  A  in  (88)  can  be  represented  in  the  form 
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where 


TT  =  -  (k+/i2)/[(k2+/i2)^k]  =  -  v/[(k2+/i2)AkA/i], 

6  =  in2(2a^-l)/(k2+M2),  (89) 

p  =  -  (k2+/i)/[(k2+/X2)A/i]  =  -  u/[(k2+M2)^kA/i], 
r  =  -  l/Ap, 

and  the  basis  apa2,a2  is  chosen  as  suggested  in  (4)  and  (56),  (57)  with  the  unit  vectors  i,  j 
oriented  along  the  main  axes  of  ^  and  tj. 

The  inverse  matrix  A~^  is  computed  as 

A~^  =  (p/x)a^aj  -(0/x)(aja2+a2a^)  +  {%lx)^2^2 
where  x  is  defined  by  the  formula 


X  =  TTp-^. 

The  bilinear  form  (  ..  ^q..  77  obviously  depends  on  the  extremal  values  of  this  parameter  can 
be  found  from  the  relationship 
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or,  equivalently,  from 


=UA-\  ..71=0 
“l 


..A”1.77  =  0. 
^  oc^  ' 


This  one  is  easily  reduced  to 


+  Trp)U^V2  +  ^ 


and  we  obtain  the  extremal  values  of  6 


0=  [Trl{(T+  C)]  (p/^)  +  -  Ph){C  -  Ph) 


(recall  that  ^  =  ^2/^1  ^  ~ 

With  these  values  for  9  it  is  easy  to  arrive  at  the  following  expression  for  the  bilinear  form 


i- 3}^--T]li^7]^  =  )s.2  + P‘2^(,  + (j^Ip  ±{llp)\{a  -  ph){C  “  C/^r) 


or,  in  view  of  (89) 


i-  •  ^Q-  =  \  +  (jL^(TC-[m^^kApik^+fi^)/2]  (1/v)  +  aC/u  ±  (l/u)J  £r^-u/v)(C^-u/v) 


This  expression  is  the  same  as  (87),  and  the  attainability  of  the  latter  bound  is  thereby  proved.  A 


28 


result  similar  to  (87)  can  be  established  if  the  condition 


Bi  =  KjMj+  ul  =  0 

holds  instead  of  (75).  We  then  arrive  at  the  formula 


(91) 


't’/ii’Ii  =  +  (m2AkA/j(kj+;jj)/2] 


((?  -  u/lF)(C^  -  u/v  ) 


(92) 


with  u,  V  defined  as  (cf.  (81)). 


u  =  (kj^  +•  ^l)Ak,  V  =  (S  +  /i]^)A/i.  (93) 

The  values  (92)  are  attained  for  the  2nd  rank  lamination  with  material  ^  being  the  core  and 
layers  parallel  to  the  main  axes  of  if  and  rj.  Now  it  is  easy  to  specify  the  ranges  of  parameters 

maximize  the  function  <p  with  respect  to  and  d  (see  (37)  and  (39)).  We  will 
consider,  without  loss  of  generality,  the  following  two  possibilities: 

(i)  Ak  >  0,  A/z  >  0  -  the  "well  ordered  "  case, 

(ii)  Ak  <  0,  A/i  >  0  —  the  "badly  ordered"  case. 

Case  (i)  —  "well  ordered". 

Let  us  first  select  between  regimes  (74)_j_  and  (74)^.  We  obtain 

^l4.-<^l_=-[m^ni2/(k+/i)](AkA/z)(f^r72+f2^l)  =  -[m^m2/(k+/i)](AkAM)f^Tj^((T+f) 
which  means  that  if  <  0,  then 
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(94) 


if  £r+C>0, 
(p^_  if  cr  +  ^  <  0. 


Also,  if  >  0,  then 


’<Pl_  if  O’  +  C  ^  0. 
if  0-  +  C  <  0. 


(95) 


The  regimes  (74)  may  neighbor  either  (87)  or  (92).  Consider  the  case  when  the  ranges 
(74)_|_  and  (92)  have  the  common  interface;  both  a  and  (  will  be  assumed  continuous  across 
this  surface.  The  values  of  should  be  equal  at  the  interface,  i.e. 


<k)  +  (m)oC  -  (mj^m2/(k+/i))(Ak  +  ^A/i)(Ak  +  cr^fi)  = 


=  kj^+/ij(T^  +  [m2AkA/i(kj^+/ij^)/2] 


(1/v)  +  o-C/u  ±  (l/u)^((7^  -  u/v)(C^  -  u/v) 


or,  equivalently, 


^We  apply  the  subscript  to  designate  the  regime  (74)  related  to  the  upper  sign.  This  and 
similar  agreements  apply  to  other  regimes  as  well. 
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(u  +  vcr()/(k  +  n)  -  m^AkA^((7  +  C)/(k  +  ^i)  = 


[AkA/x(kj^  + /ij)/2u  v]  u  +  V(7(  ±  v  {a^  -  u/v)((^  -  u/v)  . 


Another  form  of  the  latter  equation  is  given  by 


_  _  r _  2  1  _ 

(u  +  V(7^)  ( u  v/ AkA/i)  +  mj^AkA/i  —  2mj^uv(£7  +  C)  = 


=  ±v  (u  v/AkA/i)  —  m^AkA/i  J(a^  —  u/v)((^  —  u/v).  (96) 


Here,  we  made  use  of  the  relationship 


(k^  +•  /i)(k  +  =  (kj^  +  +  (i)  +  m^AkA/i. 


If  we  square  both  sides  of  Eq.  (96),  then  after  some  algebra  we  arrive  at 


[( u  V /AkA/x)  +  m^AkA/x]((7  +  C)  ~  2mj^(u  +  vcrQ  =  0 


or,  equivalently. 


[C  —  u /(mjAkA/x)](cr  —  m^AkA/x/  v) 


+(^  —  m^AkA/i/ v)[cr  —  u(/mj^AkA/i)]  =  0  . 
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This  equation  represents  a  hyperbola  in  the  plane;  it  will  be  convenient  to  introduce 
coordinates 


X^  =  (T+C,  X2  =  (7-C 

and  parameters 

=  u  /(mj^  Ak  A/i)  +  AkA/i/  v ,  02  =  /(m^  AkA/i)  —  AkA^/  v . 

In  the  plane  x^,  X2,  Eq.  (97)  represents  the  hyperbola  (see  Fig.  2  illustrating  the  well  ordered 
case) 

(xj-a/-x2  =  -S2,  (98) 


Figure  2 

With  points  of  its  right  branch  we  associate  the  combination  (74)^  —  (92)_j_  of  neighbors,  with 
points  of  the  left  branch  —  combination  of  (74)_|_  —  (92)_.  We  will  assume  below  that  <  0, 
then 


max{0^_^,03^,  03_}  = 


00 if  ^  ^3’ 

if  (xpX2)  6  Sp 

^2+  ^  h 
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In  this  classification  we  should  assume  that  =  c  +  C  ^  0  since  the  range  (74)_^  is  then 
selected  by  (94)  for  ^^77^  <  0. 

The  possibility  of  contact  between  (74)_j_  and  (87)^  should  now  be  examined.  The 
corresponding  analysis  reproduces  the  one  preceding  Eq.  (98);  the  obvious  modification  requires 
that  mj^(m2)  should  be  substituted  for  m2(mj^),  and  /ij^(/^),  ^^(^2)  ^0^  k2(kj), 

respectively.  Also  -u  should  appear  instead  of  u,  and  — v  instead  of  v. 

Equation  (98)  is  then  substituted  for 


(99) 


where 


a^=i-  u/(m2AkA/i)  -  0^  =  -  u/(m2AkA/i)  +  m2AkA;i/v. 

The  hyperbola  (99)  is  reproduced  on  Figure  3.  With  points  of  its  right  branch  we  associate  the 
combination  (74)_|_  —  (87)_  of  neighbors  whereas  points  of  its  left  branch  correspond  to  the 
combination  (74)_j_  —  (87)_^. 


Figure  3 


For  points  belonging  to  the  half— plane  Xj^  >  0, 


max(0^_l_,  02J 


>1^.  if  ^  ^1- 

<^2-  ^  ^2- 


If  we  lay  Fig.  3  upon  Fig.  2,  then,  depending  on  the  relationship  between  u/v  and  u/v,  there  will 
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appear  three  possibilities.  If  u/v  >  u/v,  then  the  half-plane  >  0  will  be  partitioned  into 
zones  with  regimes  (74)_|_,  (87)_,  (92)^  shown  on  Fig.  4. 


Figure  4 


If  u/v  =  u/v,  then  the  partitioning  is  illustrated  by  Fig.  5;  the  case  u/v  <  u/v  is  given  by  Fig. 
6.  In  this  case,  regimes  (87)_  and  (92)_  are  separated  by  a  curve  along  which  <t>2_  =  02_;  this 
curve  intersects  the  X2-axis  at  the  points 


X2  =  ±  2|(k^+/i2)/(lc2+/ij)^u/v  . 


Figure  5 


Figure  6 

The  case  as  well  as  the  "badly  ordered"  case  (ii)  can  be  handled  in  a  similar  way. 

Once  this  classification  is  completed,  the  final  operation  of  maximizing  (f>  with  respect  to 
mj  can  be  applied  to  construct  the  desired  material  pattern.  Obviously,  the  results  described 
above  apply  in  more  general  situations,  i.e.  those  when  the  relative  amounts  of  original  materials 
are  prescribed. 

Appendix;  computation  of 

This  procedure  is  similar  to  that  applied  to  compute  (S)”^  =  [(A)  — 

(c.f.  Eq.  (30)).  We  start  with  the  expression 
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(S  +  01282^  =  +  012^2  +  ^ 

where  ^^(<52)  and  ^2^(02)  are  defined,  respectively,  by  Eqs.  (31)  and  (32)  in  which  we  apply 
Aj^(A2)  instead  of  (A). 

Using  the  notation 

(J)  =  +  m252, 

(Q)  =  +  m2^2’ 


we  may  now  invert  the  matrix 


<S"^>  =  {S)  +  (fi>»E. 


Referring  to  Eq.  (20),  we  get 


=  (i/(det<«)+(n)--<<)--<n))i{det<<)<ii>-^  +  (n>(n)  -((n). ■<«)).£} 


where 


(6)  =  m^iJj  +  ^262  -  [m^/(detAj+a;-  •  Aj  -  •  u;)](detAj  •  Aj^+  uu)  + 
/(detA2+a^-  •  A2-  •u;)](detA2*  A2^+u;a;)  =  ^[detA/(detA+a;-  -  A-  •c«;)]A 


+ 


35 


+  (l/(detA+ci;*  -  A-  •iJ))uu  =  $  +  guu, 


{0)  =  +  111202  =  [m^/(detA^+a;--A^--a;)]wA^  +  [m2/(detA2+a;' •  A2- •a;)]a/- •  A2 

=  w*  •(A/(detA+a;*  •  A- *0;)). 

The  matrix  ((J)  =  #  +  guju  allows  invertion: 

(S)  ^  =  ($  +  ga;a;)~^  =  -  [g/(l+gw-  -cj). 

We  also  compute  det((5): 

det(^)  =  det($+gu;a;)  =  (det$)[l  +  g(a;- -a;)]. 

The  final  expression  for  becomes 

=  (l/A){det$[l+g(w- -0;)]$“^  -  gdet$($"^- •  w)  + 

(n)<0>  -[(Q)-’(^  +  gcjuj)]  »  E}, 

where 

A  =  det$[l+g(a;-  ■  ••£<;)]  +  (0)  •  •  ($+gwa»)  •  •  (0) 

and  matrices  (0)  and  the  scalar  parameter  g  are  defined  by  the  formulas 
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=  <[detA/(detA+W‘ •  A- •a;)]A  ^), 


(n)  =  u)’  •  (A/(detA4-a;-  ’A-  -u))), 


g  =  (l/(detA+a;*  -  A-  ■d)}. 


References 


1.  LURIE,  K.A.,  The  Extension  of  Optimization  Problems  Containing  Controls  in  the 
Coefficients.  Proceeding  of  the  Royal  Society  of  Edinburg,  Vol.  114A,  pp.  81-97,  1990. 

2.  LURIE,  K.A.,  FEDOROV,  A.V.,  and  CHERKAEV,  A.V.,  Regularization  of  Optimal 
Design  Problems  for  Bars  and  Plates.  Parts  1  and  2.  Journal  of  Optimization  Theory  and 
Applications,  Vol.  37,  pp.  499—521,  1982  and  Vol.  37,  pp.  523—543,  1982. 

3.  LURIE,  K.A.,  and  CHERKAEV,  A.V.,  The  Effective  Characteristics  of  Composite 
Materids  and  Optimal  Design  of  Constructions  (in  Russian),  Advances  in  Mechanics 
(Poland),  Vol.  9,  No.  2,  pp.  3-81,  1986. 

4.  BALL,  J.M.,  Convexity  Conditions  and  Existence  Theorems  in  Nonlinear  Elasticity. 
Archive  for  Rational  Mechanics  and  Analysis,  Vol.  63,  pp.  337-403,  1977. 

5.  STRANG,  G.,  The  Polvconvexification  of  FfVuV  Research  Report  CMA— R09-83, 
Australian  National  University,  1983. 

6.  KOHN,  R.V.,  and  STRANG,  G.,  Optimal  Design  and  Relaxation  of  Variational 
Problems.  Parts  1.2.3.  Communications  on  Pure  and  Applied  Mathematics,  Vol.  39,  pp. 
113-137,  1986;  Vol.  39,  pp.  139-182,  1986;  and  Vol.  39,  pp.  353-377,  1986. 

7.  LURIE,  A.I.,  Nonlinear  Theory  of  Elastidtv.  North  Holland,  Amsterdam,  New  York, 
Oxford,  Tokyo,  1990. 

8.  GIBIANSKII,  L.V.,  and  CHERKAEV,  A.V.,  Design  of  Composite  Plates  of  Extremal 
Stiffness  (in  Russian),  A.F.  Ioffe  Institute  Report  914,  Leningrad,  1984. 

9.  LURIE,  K.A.,  and  LIPTON,  R.,  Direct  Solution  of  an  Optimal  Layout  Problem  for 
Isotropic  Heat  Conductors  in  Three  Dimensions.  Theoretical  Aspects  of  Industrial  Design, 
Edited  by  David  A.  Field  and  Vadim  Komkov,  SIAM,  Philadelphia,  pp.  1—11,  1992. 


38 


List  of  Captions 

Fig.  1 

Rank  2  laminates 

Fig.  2 

Contact  between  ranges  (74)^  amd  (92)^: 

well  ordered  case 

Fig.  3 

Contact  between  ranges  (74)_j_  and  (87)^: 

well  ordered  case 

Fig.  4 

Partitioning  of  the  half-plane  >  0;  case 

u/v  >  u/ V 

Fig.  5 

Partitioning  of  the  half-plane  >  0;  case 

u/v  =  u/  V 

Fig.  6 

Partitioning  of  the  half-plane  x^  >  0;  case  u/v  <  u/v 

39 


2  Vu/v 


-2Vu/v 


Invariant  properties  of  the  stress  in  plane  elasticity 
and  equivalence  classes  of  composites 

By  Andrei  V.  CHERK.vEv't.  Konstantin  A.  Lerie- 
AND  Graeme  VV.  Milton’ 
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Attention  is  drawn  to  the  invariance  of  the  stress  field  in  a  two-dimensional  body 
loaded  at  the  boundary  by  fixed  forces  when  the  compliance  tensor  S^(x)  is  shifted 
uniformly  by  y”(A.  — A),  where  A  is  an  arbitrary  constant  and  is  the 

compliance  tensor  of  a  isotropic  material  with  two-dimensional  bulk  and  shear 
moduli  K  and  fi.  This  invariance  is  explained  from  two  simple  observations ;  first,  that 
in  two  dimensions  the  tensor  ‘(i,  —4)  acts  to  locally  rotate  the  stress  by  90°  and  the 
second  that  this  rotated  field  is  the  symmetrized  gradient  of  a  vector  field  and 
therefore  can  be  treated  as  a  strain.  For  composite  materials  the  invariance  of 
the  stress  field  implies  that  the  effective  compliance  tensor  ■9'  •  also  gets  shifted  by 
^'’‘(A.  —  A)  when  the  constituent  moduli  are  each  shifted  by  y'lA.  —  A).  This 
impo.ses  constraints  on  the  functional  dependence  of  •  on  the  material  moduli  of 
the  components.  Applied  to  an  isotropic  composite  of  two  isotropic  components  it 
implies  that  when  the  inverse  bulk  modulus  is  shifted  by  the  constant  1/A  and  the 
inverse  shear  modulus  is  shifted  by  —  l/A.  then  the  inverse  effective  bulk  and  shear 
moduli  undergo  precisely  the  .same  shifts.  In  particular  it  explains  why  the  effective 
Young  s  modulus  of  a  two-dimensional  media  with  holes  does  not  depend  on  the 
Poisson  s  ratio  of  the  matrix  material. 


1.  Introduction 

The  purpose  of  this  paper  is  first  to  review  some  results  for  two-dimensional 
elasticity,  which  are  not  widely  known  but  which  may  have  wide  application,  and 
second  to  give  an  appropriate  physical  interpretation  of  the  formal  mathematical 
statements  embodied  in  these  results.  These  results  concern  the  invariance  of  the 
stress  field  in  materials  with  different  elastic  moduli  subject  to  the  same  loadings.  In 
fact  this  property  was  noted  many  times  in  different  contexts,  beginning  with  the 
work  of  Michell  (1899).  who  studied  the  behaviour  of  media  with  holes.  Dundurs 
(1967)  used  the  complex  representation  of  the  Airy  stress  potential  to  show  the 
invariance  of  the  stress  Held  for  mixtures  of  two  isotropic  components.  Lurie  & 
(Jherkaev  ( 1984«)  studied  the  problem  in  the  context  of  Kirchhoff  plate  theory  which 
involves  the  same  equations  as  two-dimensional  elasticity.  The  interest  in  this 
problem  increased  when  Day  pt  al.  (1991)  observed,  through  numerical  simulation, 
that  the  effective  Young  s  modulus  of  a  two-dimensional  media  with  holes  does  not 
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(Ifpctid  oil  the  Poisson  ratio  of  the  matrix  material.  Most  ofthe.se  results,  to^ethe^^ 
uith  some  new  applications,  are  res  iewed  by  Thorpe  &  Jasiuk  (1992). 

In  §2  we  fix  notations  and  state  the  standard  equations  of  two-dimensional 
elasticity  (see,  for  example,  Atkin  &  Fox  (199(1)  for  a  general  reference).  In  we 
explain  how  the  material  constants  can  be  modified  without  altering  the  .stre.ss  field, 
and  in  §-4  we  discuss  the  implications  for  composite  materials. 

W’e  u.se  bold  face  small  letters  to  denote  vectors.  Second-order  tensors  are  denoted 
b .  ,-ither  bold  face  capital  letters  or  bold  face  Greek  letters,  and  fourth-order  tim.sors 
arc  denoted  by  caligraphie  letters. 


2.  Equations  of  planar  elasticity 

Here  we  consider  a  planar  simply  connected  domain  filled  by  an  elastic  material 

and  loaded  on  the  boundary  ci2  by  a  force  t(.v) ;  this  constrains  the  normal  stre.ss 

ff(jc)  n  at  ci3  according  to  ,  ,  ,  w 

'  '  ®  a(x)-n  =  l(x),  Vjc6cI2.  (1) 

where  n  denotes  the  normal  to  the  surface.  For  the  body  to  be  in  equilibrium  the  net 
force  and  net  torque  acting  on  it  must  be  zero : 


t{x)  =  0.  XX  t(x)  =  0. 

JcQ  Ji'Q 


The  equilibrium  equation  of  plane  ela.sticity 

V-ff  =  0.  =  (3; 

may  be  satisfied  identically  by  means  of  the  Airy  potential  function  (Atkin  &  Foi 
1990)  in  terms  of  which  the  stress  is  given  by  " 


.11/  U  0  O^' 


where  the  comma  means  differentiation  with  respect  to  subsequent  cartesian 
directions.  By  introducing  the  tensor  of  rotation  by  a  right  angle, 


and  the  differential  operator. 


-1  Q  r 


^ /c7c.rjcxi  eVcxicX 
Vc'^/cx.,cXj  Z’^IZx,lx^ 

we  can  re-express  (4)  in  the  more  compact  form 

a  = 


Note  that  R  is  the  two-dimensional  counterpart  of  the  completely  antisymmetric 
Levi-Civita  tensor.  VV'e  write  it  as  R  to  emphasize  the  key  point  (made  in  §3)  that 
the  stress  field  «t  rotated  locally  by  90°  can  be  treated  as  a  strain  field  because  VV^ 
is  the  symmetrized  gradient  of  Vcj). 

The  requirement  that  Q  be  simply  connected  is  needed  to  ensure  that  ^5  is  single 
valued.  Multiply  connected  domains  also  have  a  single  valued  ^  provided  that 
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iiit»‘iinils  of  the  ty[w  (2)  vanish  st'|iarati‘ly  on  vavli  internal  bounilary.  Under  this 
restriction  our  atialysis  aj)|)lies  etjually  vvi-ll  to  tnulti[)ly  <-ontiei't(‘(l  domains. 

Now  jiiven  ativ  svmmetrie  2x2  matrix  A  with  elcment.s  a,,  we  have 


A  R  = 


a.,., 

—  a,. 


-«,.A  ^ 

«„  /  I  d 


0  ^ 

1  /''ll  "cA 

0 

nii+it.,.,) 

'"U.  aj 

=  I{TtA)-A.  (8) 


where  Tr  denotes  the  trace  of  the  matrix  and  /  denotes  the  identity  tensor. 
Conseriuently  we  can  also  rewrite  (7)  using  a  fourth-order  tensor  representing  the 
action  of  rotation  l)v  a  right  angle  on  symmetric  .second-order  tensor,  defined  as 
follows:  Q 


in  the  form 


(10) 


Here,  as  elsewhere,  the  symbol  :  denotes  a  double  contraction  of  indices  in  the  same 
way  that  the  symbol  ■  denotes  a  single  contraction.  Specifically,  if  sJ  and  M  are 
fourth-order  tensors  with  cartesian  elements  and  and  A  and  B  are  second- 
order  tensors  with  cartesian  elements  A^j  and  B^j  then  we  define 


(.a/ :  Ji  —  S  S  'S/j 

m-l  a-l 
2  2 

(s^ :  B)ii  =  I.  I. 


•4? 

i)mn 


D 

ijmn  ^mn' 


A  B=  V 


mn  ^mn‘ 


(11) 


m-l  n-l 

In  other  words  jaf .  JB  is  the  second-order  tensor  that  results  when  sJ  acts  upon  B. 
ss/  :3i  IS  a.  fourth-order  tensor  and  represents  the  product  of  the  two  tensors  and 
while  A  .B  represents  the  trace  of  the  second-order  tensor  A^B.  or  equivalently 
the  inner  product  of  A  and  B. 

The  equilibrium  condition  for  the  .stress  is  to  be  supplemented  by  the  constitutive 
(Hookes)  law  Ijoj 

where  e  is  the  strain  tensor  and  ^  denotes  the  fourth-order  compliance  tensor  of  the 
elastic  material  possibly  depending  on  the  position  x. 

If  the  material  is  isotropic,  then  the  elasticity  tensor  'if  =  (.^  )“‘  =  'if ‘(ac./<)  can  be 
expressed  in  the  form 

and  its  associated  compliance  tensor  =  ■9”(K.p)  is  given  by 

^}ikiix-f0  =  (l/4/c)()Vd\,  +  (  1/4/0  +  (14) 

where  k  denotes  the  two-dimensional  bulk  modulus  and  /<  denotes  the  shear  modulus. 
It  should  be  noted  that  k  is  not  the  .same  as  the  customarily  used  three-dimensional 
bulk  modulus  k  :  however,  for  the  problem  of  generalized  plane  stress  where  a  thin 
plate  of  uniform  thickne.ss  is  deformed  in  its  own  plane  they  are  related  by  the 

K  =  \)kp/{U  +  ip).  (15) 

In  this  context  the  fields  e  and  <y  represent  the  transverse  components  of  the  strain 
and  stress  fields  averaeed  over  the  thickness  of  the  plate.  (For  more  explanation  see. 
for  example.  Atkin  &  Fox  (1990).) 
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Till'  strain  Held  e(x)  is  eonriocteil  witli  tin-  displai  eitieiit  u{x}  via  " 

c  =  i(Vu  +  (Vw)'^).  (Hi) 

Thc‘  last  ociuatiori  is  e<(uival(*fit  to  rt-iiiiiriiig  tliat  tile  strain  satisfy  the  sealar 
differential  eonstraint 

V-lV-(R''^-£-R)]  =  I).  (17) 

or.  in  the  notation  of  (ti)  and  (9). 


VV  :  =  0. 


Indeetl.  we  have 


V-ej.,  e,,  /  + 


and  so  one  can  easily  cheek  that 


VV :  e  =  V[V(i?''' •£•/?)]  =  (a-i,.). >  +  «•., +  =  0.  (20) 

Note  that  (18)  is  the  well-known  intinitesimal  strain  compatibility  condition  of  two- 
dimensional  linear  elasticity,  (,'ombining  the  equations  (10),  (12).  and  (18)  we  arrive 
at  the  fourth-order  differential  equation  for  the  Airy  potential 

VV ;  :  VV^i  =  0.  (21) 

where  is  3^  rotated  by  a  right  angle : 

=  (22) 

Clearly,  the  isotropic  tensor  y  coincides  with  the  rotated  one.  ^ 

y^(K./i)  =  yi{K.M).  (23) 

and  equation  (21)  takes  the  form 

\(.X,CXi  CX,(.X.J\K  fl/\<.X^lXi  (.X.,LX.,/ 

+  =  0.  (24) 

\tx^cxj  fi\(-X.2<ix.2/  Vt-Ti  lj:,/  \lx^k.x.,/  /i\<~x^lx,J 

We  remark  in  passing  that  (21)  also  describes  the  bending  of  thin  plates  according 
to  Kirchoff  theory;  9S  represents  the  vertical  deflection  of  a  horizontal  plate.  VV^  is 
the  tensor  of  curvature  of  the  plate,  is  the  tensor  of  flexural  rigidity  dependent 
on  the  local  thickness  of  the  plate  and  y^ :  W(p  represents  the  tensor  of  bending 
moments,  satisfying  the  ecpiilibrium  equation  (21)  (Timoshenko  1959).  Thus  all  the 
ensuing  analysis  applies  equally  well  to  the  plate  equation  (see  Lurie  &  Cherkaev 

1984«)- 

3.  Equivalent  plane  elasticity  problems 

It  is  remarkable  that  any  potential  (i  satisfying  the  equation  (21)  is  for  any  choice 
of  the  parameter  A  also  a  solution  of 


where 
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y  = 


VV;  .y’;:  VV?5  =  0. 

f  y’==y^y\\.-X) 


hirnriuut  pmpertif  s  and  fipiirdhiirf'  r/dx.it'.s 
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implviti^  tliat  the  Airy  potential  aial  therefore  the  stress  field  remains  unehangeil 
when  the  material  constants  are  inoditied  from  ■9’  to  .9'.  We  will  call  such  a  pair  of 
materials  with  compliance  tensors  9(x)  and  9'(x}  e(|uivalent.  The  result  (2.))  can  be 
established  directly  by  substituting  k  =  A.p  =  —  A  in  (24)  thereby  showing  that 

VV;  -A);  VV^i  =  0  (27) 

for  any  function  (^.  Formally  speaking  the  compliance  tensor  9 ‘(A.  —  A)  is  nothing 
other  than  a  multiple  of  the  fourth-order  rotation  tensor  9.  from  (Id)  and  (14)  it 
foil  ows  that 

9'(A.-A)  =  (\./-1A)9.  (28) 

The  physical  explanation  for  the  identity  (27)  is  that  the  stress  tielil  a  when  rotated 
by  a  right  angle  at  each  point  results  in  a  field  (see  (7)) 

e"  R  a- =  9.  a  =  (29) 

satisfying  the  same  differential  constraints  (17)  as  a  strain  field.  Indeed,  it  is  clear 
that 

VV =  VV:  <r  =  V  (V  (T)  =  0.  (30) 

Furthermore,  from  (29)  it  follows  that 

c"  =  i(Vw“  +  (V«“)T).  =  (31) 

So  this  strain  field  is  associated  with  a  special  vector  displacement  field  u"  which  is 
in  turn  the  gradient  of  the  Airy  potential  function.  Note,  that  the  displacements  u 
and  u'  in  the  equi%'alent  materials  9  and  9'  under  the  -same  surface  loading  t(x) 
differ  by  a  multiple  of  u® 

«' =  «  +  «'7(2A)  =  M4- V^5/(2A).  (32) 

In  particular  this  gives  a  direct  way  of  finding  the  gradient  of  the  Airy  stress 
potential  from  measurements  of  the  displacements  u  and  u'. 

Another  explanation  of  the  e<|uivalence  (25).  (20)  follows  from  consideration  of  the 
elastic  energy  variational  principle 


min 


fi'{9 ). 


(33) 


where  the  minimum  is  over  all  <t  .satisfying  (1)  anil  (3).  and 


fr(9  (T)  =  a  9:  a  =  VV<;)  :9:  9:  9:  VVr^. 


(34) 


The  Euler-Lagrange  eijuation  associated  with  this  minimization  over  a.  or 
enuivalently  <p.  coincitles  with  (21).  It  is  easy  to  ol)serve  that  the  integrand 
\y(9^(A.  —  A).(T)  can  be  expres.sed  as  the  divergence  of  a  vector  field 


where 


\V{9'{A.  -A).(T)  =  (1/2A)  VV^i:  VV^i 


2A  \  ^  o ^  ^  ,  <j) 


(35) 

(36) 


and  therefore  its  integral  depends  only  on  the  boundary  terms.  Such  functions  are 
called  null  lagrangians  (see.  for  example.  Ball  ot  al.  1981)  because  their  Euler- 
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Lagratiiif  eijiiatioiia  vanish  identically.  They  play  an  imj)i)rtant  role  in  th^ 
theories  of  quasi-convexity  (Kohn  &  Strang  198(5)  and  cornpensat(>d  compactness 
(Tartar  1979)  used  now  in  many  apf)lications  including  optimal  design,  hom¬ 
ogenization.  liquid  crystals,  and  bounds  on  effective  moduli  of  composite  materials. 

In  fact  these  arguments  parallel  results  of  Dykhne  (1979).  and  Stroud  &  Berman 
(1984)  (sec  also  Keller  19t)4;  Milton  1988)  for  conductivity  in  two  dimensions  in  the 
presence  of  a  magnetic  Held  perj)endicular  to  the  plane  of  conduction,  which 
generates  through  the  Hall-effect  a  non-symmetric  conductivity  tensor.  They 
observed  that  anv  electrical  potential  (’(.v)  satisfying  the  ('cjuation 


v-r(.r)  ■  vr  =  9. 

where  ir(jc)  represents  the  conductivity  of  the  body,  also  solves 

V'(r(A:)-f  A/?)Vr  =  0. 


(37) 


(38) 


for  any  choice  of  A.  Just  as  a  stress  field  rotated  by  a  right  angle  produces  a  strain 
field  so  does  an  electric  field,  when  rotated  by  a  right  angle  produce  a  current 
(divergence  free)  field.  (Xote,  however,  that  a  strain  field  rotated  by  a  right  angle 
does  not  produce  a  stres.s  field  whereas  a  current  field,  when  rotated  by  a  right  angle 
does  produce  an  electric  field.) 

Now  we  investigate  some  particular  physical  consequences  that  follow  from  (25). 
The  representation  (25)  shows  that  the  coefficients  of  the  compliance  tensor  y  and 
consequently  the  .strain  field  £  cannot  be  determined  from  the  solution  or  of  the 
boundary  value  problem  (see  (25),  (1).  and  (7)).  For  example,  instead  of  a  locally 
isotropic  elastic  material  with  moduli  k  and  /t  one  can  substitute  into  the  equation 
(25)  the  moduli  <'  and  /r';  M 


1  _  1  ^  I  I  _  1 _ I 

x'(x)  k{x)  A'  /I'ix)  fi(x)  A’ 


(39) 


and  it  does  not  change  the  solution  <!>  nor  the  stress  field  a.  We  will  call  such  a  pair 
of  materials  equivalent.  Xote.  that  the  substituted  material  does  not  necessarily 
have  positive  moduli  k'  and  fi'  and  therefore  may  not  have  a  physical  interpretation. 

Let  us  consider  the  relation  between  the  Young  moduli  E  and  E'  and  the  Poisson 
ratios  u  and  v'  of  equivalent  materials.  Comparing  the  constitutive  law  (12)  with  the 
defining  equation 

=  (l/F)(o-u-i’rr.j).  (40) 

for  the  Young  modulus  E  and  the  Poisson  ratio  v  we  obtain  the  relations 


F  4x  4/<  \jj.  K/l  \K  fi)  K  +  /1 


(Al) 


It  is  clear  from  (39)  that  the  equivalent  materials  have  the  same  Young  moduli  at 
each  point  in  the  body 

E'(x)  =  E(x).  (42) 

and  Poisson  ratio.s  linked  by 


v’{x)  =  i’{x)-E{x)/-2.\. 

where  A  is  an  arbitrary  parameter  constant  throughout  the  body. 
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In  particular  this  implies  that  the  stress  field  in  a  loaded  body  with  constant 
Young  modulus  does  not  react  when  the  Poisson  ratio  i’{x)  is  shiftetl  uniformly. 


4.  Applications  to  composites 

Finally,  there  are  useful  implications  of  the  identity  (27)  to  the  theory  of 
com[)osites.  Suppose  now  that  the  body  Q  is  a  statistically  homogeneous  (or  perioflic) 
composite  with  grain  sizes  much  smaller  than  the  size  of  Q.  subject  to  the  loading  ( 1). 
This  composite  can  be  replaced  by  an  equivalent  homogeneous  elfective  metlium 
with  compliance  tensor  .y’  *.  connecting  the  locally  averaged  stress  and  strain  tensor 
fields. 

<£>  =.5^*:  <«r>,  (44) 

where  <  •  >  denotes  local  averaging  over  a  test  sphere  9(x)  centred  at  x.  which  is 
larger  than  the  grain  sizes  but  smaller  than  all  other  characteristic  lengths  such  as 
the  size  of  Q  and  the  length  .scale  over  which  t(x)  varies.  To  obtain  the  effective 
compliance  y”  *  it  suffices  to  consider  an  infinite  body  of  the  composite  loaded 
uniformly,  and  the  averages  <•>  can  then  be  taken  over  the  whole  body,  or 
equivalently  over  a  period  cell. 

Since  the  stress  er  is  the  same  in  the  equivalent  materials  -S^lx)  and  ■9’'(x)  (where 
£^'{x)  is  given  by  (26))  when  they  are  loaded  uniformly  in  the  same  way.  it  follows 
that  the  strain  fields  satisfy  the  relation 

fi'  =  y";  <T  =  y’:  <r4-y’‘(A.  —A):  a  =  e  +  .y'lA.  —A):  a.  (45) 

Taking  the  average  of  this  relation  over  a  period  cell,  and  remembering  that 
y”(A.  —  A)  does  not  depend  on  x.  gives 

y"*:  <ff>  =  y’*;  <ff>  +  5^>(A.  -A):<<t>.  (46) 

Since  this  holds  for  all  uniform  loadings,  or  equivalently  for  all  values  of  the  average 
stre.ss  {o'),  we  deduce  from  (46)  that  the  effective  tensors  are  linked  through  the 
equation 

.y”*  =  .y’*  +  .y’>(A. -A).  (47) 

In  other  words  the  effective  compliance  tensor  is  translated  by  the  same  tensor  as  the 
compliance  tensor  of  the  initial  inhomogeneous  medium.  Applied  to  an  isotropic 
composite  of  isotropic  components  it  implies  that  when  the  moduli  \./k{x)  and  \./p(x) 
are  shifted  according  to  (39)  their  effective  moduli  are  shifted  in  the  same  way 


_1_  _  J_  ^  J_  _  J _ 1 

K*  k*'^A'  ft*  p*  A' 


(+8) 


This  observation  explains  the  numerical  results  of  Day  et  al.  (1991) ;  see  also  Thorpe 
&  .Jasiuk  (1991).  They  found  that  the  relative  Young's  modulus  E*IE  of  a  two- 
dimensional  sheet  containing  a  statistically  isotropic  distribution  of  circular  holes, 
overlapping  or  not,  is  independent  of  the  Poisson's  ratio  v  of  the  sheet.  The  reason 
for  this  is  clear.  From  dimensional  considerations  E* fE  can  only  depend  on  v  and  on 
the  geometrical  configuration  of  the  holes.  So.  without  loss  of  generality,  let  us 
suppose  the  Young's  modulus  E  of  the  plate  remains  fixed.  A  uniform  shift  in  the 
Poisson's  ratio  of  the  sheet  from  v  to  v  .  while  keeping  the  Young's  modulus  E'  =  E, 
corresponds  to  a  transformation  of  the  form  (42)  and  (43)  with  A  =  El'l[v  —  v').  In 
other  words  plates  with  different  Poisson's  ratios  but  sharing  the  same  Young’s 
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modulus  and  geometrical  cotiHguration  of  holes  are  eiiuivalent.  Under  this 
transformation  the  holes  remain  holes  and  according  to  (48)  and  (41)  the  effective 
Young's  modulus  E*  and  effective  Poisson's  ratio  c*  are  transformed  to 

E'*  =  E*.  (49) 

v'*  =  V* —  {v  —  i'')  E* / E.  (oO) 

Uonsequently  the  ratio  E*/E  remains  unchaniied.  i.e.  it  can  only  dej)end  on  the 
geometrical  contiguration  of  the  holes. 

An  interesting  eonsequetjce  of  (48)  is  that  it  leads  to  a  very  simple  proof  of  the 
Hashin-Shtrikman-Hill  bound  on  the  bulk  modulus  k*  (Hashin  &  Shtrikman  1963; 
Hill  1964).  U’e  begin  with  the  Voigt  bound  on  k'*  (Hill  1952) 

k'*  ^  <*:'>.  (51) 

which  holds  for  all  choices  of  A  such  that  k'  and  fi'  given  by  (39)  remain  non-negative. 
In  particular,  when  A  takes  its  extreme  value. 

A  =  fi"  =  max//(x),  (52) 


(51)  implies 


(—  — 


~+—V 


which  is  the  Hashin-Shtrikman-Hill  bound.  This  is  one  of  the  simplest  examples  of 
the  so-called  translation  method  to  bounding  the  effective  moduli  of  composites.  The 
method  generalizes  the  idea  of  equivalence,  and  it  not  only  provides  an  alternative 
derivation  of  the  Hashin-Shtrikman  bounds  on  the  effective  conductivity,  bulk 
shear  moduli  (Lurie  &  Cherkaev  1984a.  6.  1986a:  Tartar  1985;  Francfort  &  Murl^^ 
1986  ;  Milton  1990.  1991)  but  also  generates  coupled  estimates  on  the  possible  {K*.fi*) 
pairs  (Cherkaev  &  Gibiansky  1991).  exact  estimates  of  the  elastic  energy  stored  in  the 
composite  for  a  given  applied  held  (Lurie  &  Cherkaev  19866:  Gibiansky  &  Cherkaev 
1987;  Allaire  &  Kohn  1991),  and  sharp  bounds  on  the  effective  elastic  moduli  of 
polycrystalline  materials  (Avellaneda  &  Milton  1989;  Cherkaev  et  ul.  1991). 

The  equivalence  (47)  was  the  key  point  used  in  the  paper  by  Lurie  &  Cherkaev 
(1984a)  to  get  the  bounds  for  the  set  of  all  possible  effective  tensors  ^  *(x)  when 
■9'(x)  is  isotropic  and  either  the  bulk  or  shear  modulus  of  the  material  is  constant. 
When  the  shear  modulus  is  constant  then  the  effective  tensor  is  necessarily  isotropic 
and  shares  the  .same  shear  modulus  as  the  components  (Hill  1964).  To  obtain  the 
effective  bulk  modulus  one  can  choose  A  =  /t  giving 

=  A  =  0.  (.54) 

K  (X)  ^(JC)  //  ft 

From  (25)  it  is  immediately  clear  that  the  Airy  potential  .satisfies 

a(-/— 4--)  A(;i  =  0.  (.55) 

VAc(jr)  fi) 

where  A  denotes  the  laplacian.  implying  that  the  .scalar  field 

Tre'(x)  =  3(l/x’(JC)+  l//<)  A^5(jc)  (.56) 

is  harmonic  (see  (55)). 

The  physical  explanation  of  this  is  quite  clear.  The  equivalent  material  has  infinite 
shear  modulus  and  so  its  only  possible  deformations  are  conformal  ones  since  a 
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(‘hiingo  in  the  angle  between  two  lines  under  deformation  indieates  shear.  In 
[)artieular,  if  the  deformation  in  the  eriuivalent  media  is  on  average  uniform  then  it 
must  neccssaril}'  be  a  uniform  dilution.  The  assoi'iated  strain  field  in  the  ('Ciuivalent 
media  is  independent  of  .v.  and  proportional  to  the  identity  tensor 

£,7(.x:)  =  <e,7>  =  adV  V.r.  (.57) 

and  the  traee  of  the  average  stress  field  is 

Tr<ff'>  =  <Af,3(A:)>  =  2<(  l/v(jc)  +  Tre'> 

=  2<(l//f(.v)+  l//<)'‘>Tr<£'>.  (.38) 

This  in  conjunction  with  (48)  shows  that  the  effective  bulk  mcjdulus  k*  satisfies 


independent  of  the  niicrostructure  of  the  composite.  The  same  conclusion  was  also 
reached  by  Hill  (1984),  anti  by  Franefort  &  Tartar  (1991).  who  showed  the  relation 
can  be  generalized  to  three-dimensional  composites  with  constant  shear  modulus. 
The  result  also  follows  from  the  Hashin-Shtrikman  bounds  (Hashin  &  Shtrikman 
1968)  which  collap.se  to  the  single  relation  (.59)  when  the  shear  modulus  is  constant. 

Since  the  equivalent  medium  has  infinite  shear  modulus  its  Poisson  ratio  given  by 
(41)  is  —1.  Materials  with  Poisson’s  ratios  close  to  —1  although  not  yet  found  in 
nature  can  nevertheless  be  constructed  (.see,  for  e.xample.  Lakes  1991 ;  Milton  1992). 

In  a  similar  way.  supposing  that  the  bulk  modulus  is  constant  and  choosing  A  = 
—  K  one  can  get  the  equivalent  incompressible  medium.  For  two-phase  composites 
of  isotropic  incompressible  media,  mi.xed  in  prescribed  proportions.  Lipton  (1988) 
has  obtained  a  complete  characterization  of  the  set  of  all  possible  effective  elasticity 
tensors.  This  immediately  gives,  via  (47).  a  complete  knowledge  of  the  possible 
elasticity  tensors  when  the  bulk-modulus  is  finite  and  constant  in  both  pha.ses. 

Clearly  equivalent  media  differ  very  much  in  their  elastic  behaviour.  The 
equivalence  means  that  w'hen  subject  to  the  same  loading  conditions  they  (as  well  as 
infinitely  many  other  equivalent  materials)  possess  the  same  stress  ten-sor  in  each 
point  of  the  body  Q.  Finally,  note  that  (47)  also  provides  a  useful  test  for  numerical 
codes  for  evaluating  effective  moduli,  no  matter  if  the  component  phases  are 
isotropic  or  polycrystalline. 
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